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PRINCIPAL NOTATION 


SYMBOLS 

Unless specified otherwise, all variables are nondimensional. 


Symbol 


Definition 


c pt c v 
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N u N 2 ' 
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x, r 
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ti 
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@2, Si 
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^ n 


Specific heats at constant pressure and volume. 

Static pressure coefficient. 

Total energy per unit volume. 

Proportionality constant in Newton's second law. 

Stagnation enthalpy per unit mass. 

Effective thermal conductivity coefficient. 

Dimensional reference length. 

Mach number. 

Time level. 

Number of grid points in the £ and 1 7 directions. 

Static pressure. 

Laminar Prandtl number. 

Vector of dependent variables in the Cartesian or cylindrical coordinate form of the 
governing equations. 

Residual. 

Gas constant. 

Reference Reynolds number. 

Static temperature. 

Velocities in the Cartesian x and y directions. 

Velocities in the cylindrical x, r, and swirl directions. 

Cylindrical axial and radial coordinates. 

Cartesian coordinates. 

Ratio of specific heats, Cp/Cv. 

Second- and fourth-order explicit artificial viscosity coefficients in constant coeffi- 
cient model. 

Implicit artificial viscosity coefficient. 

Cylindrical circumferential coordinate. 

Parameters determining type of time differencing used. 

Constants in nonlinear coefficient artificial viscosity model. 

Viscosity coefficient. 

Computational coordinate directions. 
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Symbol 


Definition 


P 

T 

SUBSCRIPTS 

Subscript 

ij 

n 

r 

T 

SUPERSCRIPTS 

Superscript 

n 


Static density. 
Computational time. 


Definition 

Denotes grid location in £ and tj directions. 
Denotes dimensional normalizing condition. 
Denotes dimensional reference condition. 
Denotes total, or stagnation, value. 


Definition 

Denotes time level. 

Overbar; denotes dimensional value. 
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PROTEUS TWO-DIMENSIONAL 
N AVTER- STOKES COMPUTER CODE - VERSION 2.0 

Volume 2 - User's Guide 

Charles E. Towne, John R. Schwab, Trong T. Bui 

National Aeronautics and Space Administration 
Lewis Research Center 
Cleveland, Ohio 


SUMMARY 

A computer code called Proteus has been developed to solve the two-dimensional planar or 
axisymmetric, Reynolds-averaged, unsteady compressible Navier-Stokes, equations in strong conservation 
law form. The objective in this effort has been to develop a code for aerospace propulsion applications that 
is easy to use and easy to modify. Code readability, modularity, and documentation have been emphasized. 

r Hie governing equations are written in Cartesian coordinates and transformed into generalized 
nonorthogonal body-fitted coordinates. They are solved by marching in time using a fully-coupled 
alternating- direction-implicit solution procedure with generalized first- or second-order time differencing. 
The boundary conditions are also treated implicitly, and may be steady or unsteady. Spatially periodic 
boundary conditions are also available. All terms, including the diffusion terms, are linearized using 
second-order Taylor series expansions. Turbulence is modeled using either an algebraic or two-equation 
eddy viscosity model. 

The program contains many operating options. The governing equations may be solved for two- 
dimensional planar flow, or axisymmetric flow with or without swirl. The thin-layer or Euler equations 
may be solved as subsets of the Navier-Stokes equations. The energy equation may be eliminated by the 
assumption of constant total enthalpy. Explicit and implicit artificial viscosity may be used to damp pre- 
and post-shock oscillations in supersonic flow and to minimize odd-even decoupling caused by central 
spatial differencing of the convective terms in high Reynolds number flow. Several time step options are 
available for convergence acceleration, including a locally variable time step and global time step cycling. 
Simple Cartesian or polar grids may be generated internally by the program. More complex geometries 
require an externally generated computational coordinate system. 

The documentation is divided into three volumes. Volume 1 is the Analysis Description, and presents 
the equations and solution procedure used in Proteus. It describes in detail the governing equations, the 
turbulence model, the linearization of the equations and boundary conditions, the time and space differ- 
encing formulas, the ADI solution procedure, and the artificial viscosity models. Volume 2, the current 
volume, is the User's Guide, and contains information needed to run the program. It describes the pro- 
gram's general features, the input and output, the procedure for setting up initial conditions, the computer 
resource requirements, the diagnostic messages that may be generated, the job control language used to run 
the program, and several test cases. Volume 3 is the Programmer's Reference, and contains detailed infor- 
mation useful when modifying the program. It describes the program structure, the Fortran variables stored 
in common blocks, and the details of each subprogram. 

Version 1.0 of the two-dimensional Proteus code was released in late 1989. The current documentation 
covers Version 2.0, released in early 1992. 
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1.0 INTRODUCTION 


Much of the effort in applied computational fluid dynamics consists of modifying an existing program 
for whatever geometries and flow regimes are of current interest to the researcher. Unfortunately, nearly 
all of the available non-proprietary programs were started as research projects with the emphasis on dem- 
onstrating the numerical algorithm rather than ease of use or ease of modification. The developers usually 
intend to clean up and formally document the program, but the immediate need to extend it to new ge- 
ometries and flow regimes takes precedence. 

The result is often a haphazard collection of poorly written code without any consistent structure. An 
extensively modified program may not even perform as expected under certain combinations of operating 
options. Each new user must invest considerable time and effort in attempting to understand the underlying 
structure of the program if intending to do anything more than run standard test cases with it. The user s 
subsequent modifications further obscure the program structure and therefore make it even more difficult 
for others to understand. 


The Proteus two-dimensional Navier-Stokes computer program is a user-oriented and easily-modifiable 
flow analysis program for aerospace propulsion applications. Readability, modularity, and documentation 
were primary objectives during its development. The entire program was specified, designed, and imple- 
mented in a controlled, systematic manner. Strict programming standards were enforced by immediate peer 
review of code modules; Kemighan and Plauger (1978) provided many useful ideas about consistent pro- 
gramming style. Every subroutine contains an extensive comment section describing the purpose, input 
variables, output variables, and calling sequence of the subroutine. With just three clearly-defined ex- 
ceptions, the entire program is written in ANSI standard Fortran 77 to enhance portability. A master ver- 
sion of the program is maintained and periodically updated with corrections, as well as extensions of general 
interest (e.g., turbulence models.) 


The Proteus program solves the unsteady, compressible, Reynolds-averaged Navier-Stokes equations in 
strong conservation law form. The governing equations are written in Cartesian coordinates and trans- 
formed into generalized nonorthogonal body-fitted coordinates. They are solved by marching in time using 
a fully-coupled altemating-direction-implicit (ADI) scheme with generalized tune and space differencing 
(Briley and McDonald, 1977; Beam and Warming, 1978). Turbulence is modeled using either the Baldwin 
and Lomax (1978) algebraic eddy- viscosity model or the Chien (1982) two-equation model. All terms, in- 
cluding the diffusion terms, are linearized using second-order Taylor series expansions. The boundary 
conditions are treated implicitly, and may be steady or unsteady. Spatially periodic boundary conditions 
are also available. 

The program contains many operating options. The governing equations may be solved for two- 
dimensional planar flow, or axisymmetric flow with or without swirl. The thin-layer or Euler equations 
may be solved as subsets of the Navier-Stokes equations. The energy equation may be eliminated by the 
assumption of constant total enthalpy. Explicit and implicit artificial viscosity may be used to damp pre- 
and post-shock oscillations in supersonic flow and to minimize odd-even decoupling caused by central 
spatial differencing of the convective terms in high Reynolds number flow. Several time step options are 
available for convergence acceleration, including a locally variable time step and global time step cycling. 
Simple grids may be generated internally by the program; more complex geometries require external grid 
generation, such as that developed by Chen and Schwab (1988). 

The documentation is divided into three volumes. Volume 1 is the Analysis Description, and presents 
the equations and solution procedure used in Proteus . It describes in detail the governing equations, the 
turbulence model, the linearization of the equations and boundary conditions, the time and space differ- 
encing formulas, the ADI solution procedure, and the artificial viscosity models. Volume 2, the current 
volume, is the User's Guide, and contains information needed to run the program. It describes the pro- 
gram's general features, the input and output, the procedure for setting up initial conditions, the computer 
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resource requirements, the diagnostic messages that may be generated, the job control language used to run 
the program, and several test cases. Volume 3 is the Programmer's Reference, and contains detailed infor- 
mation useful when modifying the program. It describes the program structure, the Fortran variables stored 
in common blocks, and the details of each subprogram. 

Version 1.0 of the two-dimensional Proteus code was released in late 1989 (Towne, Schwab, Benson, 
and Suresh, 1990). The current documentation covers Version 2.0, released in early 1992. 

The authors would like to acknowledge the significant contributions made by their co-workers. Tom 
Benson provided part of the original impetus for the development of Proteus , and did the original coding 
of the block tri-diagonal inversion routines. Simon Chen did the original coding of the Baldwin- Lomax 
turbulence model, and consulted in the implementation of the nonlinear coefficient artificial viscosity model. 
William Kunik developed the original code for computing the metrics of the generalized nonorthogonal grid 
transformation. Frank Molls has created separate diagonalized and patched-grid versions of the code. 
Ambady Suresh did the original coding for the second-order time differencing and for the nonlinear coeffi- 
cient artificial viscosity model. These people, along with Dick Cavicchi, Julie Conley, Jason Solbeck, and 
Pat Zeman, have also run many debugging and verification cases. 
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2.0 GENERAL DESCRIPTION 


In this section the basic characteristics and capabilities of the Proteus code are described in general. 
More detailed descriptions can be found in other sections of this manual or in Volumes 1 and 3. 

2.1 ANALYSIS 


Proteus 2-D solves the two-dimensional planar or axisymmetric unsteady compressible Navier-Stokes 
equations. Swirl is allowed in axisymmetric flow. The planar equations are solved in fully conservative 
form. As subsets of these equations, options are available to solve the Euler equations or the thin-layer 
Navier-Stokes equations. An option is also available to eliminate the energy equation by assuming constant 
total enthalpy. The governing equations are described in detail in Section 2.0 of Volume 1. 

The equations are solved by marching in time using the generalized time differencing of Beam and 
Warming (1978). The method may be either first- or second-order accurate in time, depending on the 
choice of time differencing parameters. Second-order central differencing is used for all spatial derivatives. 
The time and space differencing formulas are presented in Sections 3.0 and 5.0 of Volume 1. Nonlinear 
terms are linearized using second-order Taylor series expansions in time, as described in Section 4.0 of 
Volume 1. The resulting difference equations are solved using an alternating-direction implicit (ADI) 
technique, with Douglas-Gunn type splitting as written by Briley and McDonald (1977). The boundary 
conditions are also treated implicitly. 

Artificial viscosity, or smoothing, is normally added to the solution algorithm to damp pre- and post- 
shock oscillations in supersonic flow, and to prevent odd-even decoupling due to the use of central differ- 
ences in convection-dominated regions of the flow. Implicit smoothing and two types of explicit smoothing 
are available in Proteus. The implicit smoothing is second order with constant coefficients. For the explicit 
smoothing the user may choose a constant coefficient second- and/or fourth-order model (Steger, 1978), 
or a nonlinear coefficient mixed second- and fourth-order model (Jameson, Schmidt, and Turkel, 1981). 
The nonlinear coefficient model was designed specifically for flow with shock waves. The artificial viscosity 
models are described in detail in Section 8.0 of Volume 1. 

The equations are fully coupled, leading to a system of equations with a block tridiagonal coefficient 
matrix that can be solved using the block matrix version of the Thomas algorithm. Because this algorithm 
is recursive, the source code cannot be vectorized in the ADI sweep direction. However, it is vectorized in 
the non-sweep direction, leading to an efficient implementation of the algorithm. The solution algorithm 
is described in detail in Section 7.0 of Volume 1. 

2.2 GEOMETRY AND GRID SYSTEM 

The equations solved in Proteus were originally written in a Cartesian coordinate system, then trans- 
formed into a general nonorthogonal computational coordinate system as descnbed in Section 2.3 of Vol- 
ume 1. The code is therefore not limited to any particular type of geometry of coordinate system. The only 
requirement is that body-fitted coordinates must be used. In general, the computational coordinate system 
for a particular geometry must be created by a separate coordinate generation code and stored in an unfor- 
matted file that Proteus can read. However, simple Cartesian and polar coordinate systems are built in. 

The equations are solved at grid points that form a computational mesh within this computational co- 
ordinate system. Note that a distinction is being made between the terms computational coordinate system 
and computational mesh. The computational coordinate system refers to the (£,»/) system in which the gov- 
erning equations are written. It is determined by supplying a series of points whose Cartesian (xj>) coor- 
dinates are specified, either by reading them from a file or through one of the analytically defined coordinate 
systems built into subroutine GEOM. The computational mesh consists of gnd points distributed along 
lines in the computational coordinate directions. These points may differ in number and location from 


Proteus 2-D User's Guide 


2.0 Genera! Description 9 



those used to determine the computational coordinate system. The number of grid points in each direction 
in the computational mesh is specified by the user. The location of these grid points can be varied by 
packing them at either or both boundaries in any coordinate direction. The transformation metrics and 
Jacobian are computed using finite differences in a manner consistent with the differencing of the governing 
equations. 

2.3 FLOW AND REFERENCE CONDITIONS 

As stated earlier, the equations solved by Proteus are for compressible flow. Incompressible conditions 
can be simulated by running at a Mach number of around 0.1. Lower Mach numbers may lead to nu- 
merical problems. The flow can be laminar or turbulent. The gas constant K is specified by the user, with 
the value for air as the default. The specific heats c, and c„ the molecular viscosity p, and the thermal 
conductivity k can be treated as constants or as functions of temperature. The empirical formulas used to 
relate these properties to temperature are contained in subroutine FTEMP, and can easily be modified if 
necessary. The perfect gas equation of state is used to relate pressure, density, and temperature. This 
equation is contained in subroutine EQSTAT, which could also be easily modified if necessary , All 
equations and variables in the program are nondimensionalized by normalizing values derived from refer- 
ence conditions specified by the user, with values for sea level air as the default. 

2.4 BOUNDARY CONDITIONS 

The easiest way to specify boundary conditions in Proteus is by specifying the type of boundary (i.e., 
no-slip adiabatic wall, subsonic inflow, periodic, etc.). The program will then select an appropriate set of 
conditions for that boundary. For most applications this method should be sufficient. If necessary, how- 
ever, the user may instead set the individual boundary conditions on any or all of the four computational 
boundaries. 

A variety of individual boundary conditions are built into the Proteus code, including: (1) specified val- 
ues and/or gradients of Cartesian velocities u, v, and w, normal and tangential velocities V„ and V„ pressure 
p, temperature T, and density p; (2) specified values of total pressure p T , total temperature 77, and flow 
angle; and (3) linear extrapolation. Another useful boundary condition is a "no change from initial condi- 
tion' option for u, v, w, p, T, p, p T , and/or 77- Provision is also made for user-written boundary conditions 
using subroutines BCF and BCFLIN. Specified gradient boundary conditions may be in the direction of 
the coordinate line intersecting the boundary or normal to the boundary, and may be computed using 
two-point or three-point difference formulas. For all of these conditions, the same type and value may be 
applied over the entire boundary surface, or a point -by-point distribution may be specified. Unsteady and 
time-periodic boundary conditions are allowed when applied over the entire boundary. The boundary 
conditions available in Proteus are described in detail in Section 3.1.7. 

2.5 INITIAL CONDITIONS 


Ini tial conditions are required throughout the flow field to start the time marching procedure. For un- 
steady flows they should represent a real flow field. A converged steady-state solution from a previous run 
would be a good choice. For steady flows, the ideal initial conditions would represent a real flow field that 
is close to the expected final solution. 

The initial conditions are set up in subroutine INIT. A default version of INIT is built into Proteus that 
specifies uniform flow with constant flow properties everywhere in the flow field. These conditions, of 
course, do represent a solution to the governing equations, and for many problems may help minimize 
starting transients in the time marching procedure. However, realistic initial conditions that are closer to 
the expected final solution should lead to quicker convergence. 

The best choice for initial conditions, therefore, will vary from problem to problem. For this reason 
Proteus does not include a more generalized routine for setting up initial conditions. Instead, the user 
should supply his or her own version of subroutine INIT to set up the initial conditions for the particular 
flow being computed. Details on the Fortran variables to be specified by INIT may be found in Section 
5.1. 
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2.6 TIME STEP SELECTION 


Several different options are available for choosing the time step At, and for modifying it as the solution 
proceeds. At may be specified directly, or through a value of the Courant-Friedrichs-Lewy (CFL) number. 
When specifying a CFL number, the time step At may be either global (i.e., constant in space) based on 
the minimum CFL limit, or local (i.e., varying in space) based on the. local CFL limit. For unsteady 
time -accurate flows global values should be used, but for steady flows using local values may lead to faster 
convergence. Options are available to increase or decrease At as the solution proceeds based on the change 
in the dependent variables. An option is also available to cycle At between two values in a logarithmic 
progression over a specified number of time steps. The various time step options are described in detail in 
Section 3.1.9. 

2.7 CONVERGENCE 

Five options are currently available for determining convergence. The user specifies a convergence cri- 
terion i for each of the governing equations. Then, depending on the option chosen, convergence is based 
on: (1) the absolute value of the maximum change in the conservation variables AQ^ flx over a single time 
step; (2) the absolute value of the maximum change AQ^ averaged over a specified number of time steps; 
(3) the L 2 norm of the residual for each equation; (4) the average residual for each equation; or (5) the 
maximum residual for each equation. These criteria are defined in Section 4.1.6. 

2.8 INPUT/OUTPUT 

Input to Proteus is through a series of namelists 1 and, in general, an unformatted file containing the 
computational coordinate system. All of the input parameters have default values and only need to be 
specified by the user if a different value is desired. Reference'conditions may be specified in either English 
or SI units. The namelist and coordinate system input are described in Section 3.0. A restart option is also 
available, in which the computational mesh and the initial flow field are read from unformatted restart files 
created during an earlier run. The use of the restart option is described in Sections 3.1.3 and 5.3. 

The standard printed output available in Proteus includes an echo of the input, boundary conditions, 
normalizing and reference conditions, the computed flow field, and convergence information. The user 
controls exactly which flow field parameters are printed, and at which time levels and grid points. Several 
debug options are also available for detailed printout in various parts of the program. The printed output 
is described in Section 4.1. 

In addition to the printed output, several unformatted files can be written for various purposes. The first 
is an auxiliary file used for post-processing, usually called a plot file, that can be written at convergence or 
after the last time step if the solution does riot converge. Plot files can be written for the NASA Lewis 
plotting program CONTOUR or the NASA Ames plotting program PLOT3D. If PLOT3D is to be used, 
two unformatted files are created, an XYZ file containing the computational mesh and a Q file containing 
the computed flow field. The plot files are described in detail in Section 4.2. Another unformatted file 
written by Proteus contains detailed convergence information. This file is automatically incremented each 
time the solution is checked for convergence, and is used to generate the convergence history printout and 
with Lewis-developed post-processing plotting routines. The contents of the convergence history file are 
presented in Section 4.3. And finally, two unformatted files may be written at the end of a calculation that 
may be used to restart the calculation in a later run. One of these contains the computational mesh, and 
the other the computed flow field. The contents of the restart files are described in detail in Section 4.4. 

2.9 TURBULENCE MODELS 

For turbulent flow, Proteus solves the Reynolds time-averaged Navier- Stokes equations, with turbulence 
modeled using either the Baldwin and Lomax (1978) algebraic eddy-viscosity model or the Chien (1982) 
two-equation model. Both models are described in detail in Section 9.0 of Volume 1. 


1 It should be noted that namelist input is not part of ANSI standard Fortran 77, but is nevertheless available with 
most Fortran compilers. See Section 2.3.1 of Volume 3 for a discussion of possible computer-dependent features 
in the Proteus code. 
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2.9.1 Baldwin-Lomax Model 


The Baldwin-Lomax model may be applied to either wall-bounded flows or to free turbulent flows. 
For wall-bounded flows, the model is a two-layer model. In the inner region, in addition to the Baldwin- 
Lomax formulation, an alternate expression first presented by Spalding (1961), and later by Kleinstein 
(1967), may be used. For flows in which more than one boundary is a solid surface, averaging procedures 
are used to determine a single profile. A simple transition model proposed by Cebeci and Bradshaw 
(1984) may be used to simulate laminar/ turbulent transition. The turbulent thermal conductivity coefficient 
k t is computed using Reynolds analogy. 

2.9.2 Chien k-z Model 


With the Chien two-equation model, partial differential equations are solved for the turbulent kinetic 
energy k and the turbulent dissipation rate c. These equations are lagged in time and solved separately from 
the Navier-Stokes equations. The equations are solved using the same solution algorithm as for the mean 
flow equations, except that spatial derivatives for the convective terms are approximated using first-order 
upwind differencing. 

Since the Chien two -equation model is a low Reynolds number formulation, the k-z equations are 
solved in the near-wall region. No additional approximations are needed. Boundary conditions that may 
be used include: (1) no change from initial or restart conditions for k and e; (2) specified values and/or 
gradients of k and z\ and (3) linear extrapolation. Specified gradient boundary conditions are in the direction 
of the coordinate line intersecting the boundary, and may be computed using two-point or three-point dif- 
ference formulas. For all of these conditions, the same type and value may be applied over the entire 
boundary surface, or a point-by-point distribution may be specified. Spatially periodic boundary conditions 
for k and z may also be used. Unsteady boundary conditions are not available for the k-z equations. 
However, unsteady flows can still be computed with the k-z model using the unsteady boundary condition 
option for the mean flow quantities and appropriate boundary conditions for k and c, such as specified 
gradients or linear extrapolation. 

Initial conditions for k and e are required throughout the flow field to start the time marching procedure. 
The best choice for initial conditions for the k-z equations will vary from problem to problem, and the user 
may supply a subroutine, called KEINIT, that sets up the initial values for k and z for the time marching 
procedure. Details on the Fortran variables to be specified by KEINIT may be found in Section 5.1. A 
version of KEINIT is built into Proteus that computes the initial k and z values from a mean initial or re- 
start flow field based on the assumption of local equilibrium (i.e., production equals dissipation.) Variations 
of that scheme have been found to be useful in computing the k-z initial conditions for a variety of turbulent 
flows. 

The time step used in the solution of the k-z equations is normally the same as the time step used for 
the mean flow equations. However, the user can alter the time step for the k-z equations, making it larger 
or smaller than the time step for the mean flow equations, by specifying a multiplication factor. The user 
can also specify the number of k-z iterations per mean flow iteration. 
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3.0 INPUT DESCRIPTION 


The standard input to the two-dimensional version of Proteus consists of a title line and several 
namelists. Additional input may be provided in the form of a pre- stored unformatted file containing the 
computational coordinate system. The calculation can also be started by reading the computational mesh 
and the initial flow field from restart files written during a previous run. This section describes only the 
standard input and the coordinate system file. The restart file contents and format are described in Section 
4.4. 

3.1 STANDARD INPUT 


All of the standard input parameters have default values and do not need to be specified by the user 
unless some other value is desired. The type (real or integer) of the input parameters follows standard 
Fortran convention, unless stated otherwise (i.e., those starting with I, J, K, L, M, or N are integer, and the 
remainder are real.) 2 Note that in most, if not all, implementations of Fortran, namelist names and input 
start in character position 2 or higher in the input line. All of the input, except for namelist IC, is read in 
subroutine INPUT. Namelist IC is read in subroutine INIT. 

3.1.1 Reference and Normalizing Conditions 

Unless specified otherwise, all of the input parameters are specified in nondimensional form, with the 
appropriate reference condition as the nondimensionalizing factor. A few words explaining what we mean 
by reference conditions and normalizing conditions, and the differences between them, may be helpful at this 
point. 

The normalizing conditions are, by definition, the conditions used in nondimensionalizing the governing 
equations, and are denoted by an n subscript. (See Section 2.0 of Volume 1.) These normalizing conditions 
are defined by six basic reference conditions, for length, velocity, temperature, density, viscosity, and thermal 
conductivity, which are specified by the user. Reference conditions are denoted by an r subscript. The 
normalizing conditions used in Proteus are listed in Table 3-1. 

Note that for some variables, like pressure, the normalizing condition is dictated by the form of the 
governing equations once the six basic reference conditions are chosen. Unfortunately, some of these may 
not be physically meaningful or convenient for use in setting up input conditions. Therefore, some addi- 
tional reference conditions are defined from the six user-supplied ones. The reference conditions are listed 
in Table 3-2. 

To summarize, the normalizing conditions are used to nondimensionalize the governing equations. The 
average user need not be too concerned about these. The reference conditions are the ones used for 
nondimensionalization of all user-specified input and output parameters. 3 


2 Throughout this User's Guide, elements of the Fortran language, such as input variables and subprogram names, 
are printed in the text using uppercase letters. However, in most implementations, Fortran is case-insensitive. The 
Proteus source code itself is written in lowercase. 

3 Internal to the Proteus computer code itself, variables are generally nondimensionalized by the normalizing con- 
ditions. The reference conditions are used for input and output because they are usually more physically mean- 
ingful for the user. 
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3.1.2 Title 


TITLE A descriptive title, used on the printed output and in the CONTOUR plot file, up 

to 72 characters long. This is a character variable. 

3.1.3 Namelist RSTRT 

The parameters in this namelist control the use of the restart option. The contents of the restart files 
are described in Section 4.4. 

IREST 0 if no restart files are to be read or written. 

1 to write restart files at the end of the calculation. 

2 to read restart files for initial values, and to write restart files at the end of the 
calculation. For turbulent flow, the current calculation must use the same 
turbulence model as the previous calculation. Note that only the initial values 
and the computational mesh are read from restart files. The usual namelist in- 
put must still be read in. Of course, some input parameters, such as the refer- 
ence conditions or those specifying the grid, must not be changed during a 
restart. 

3 same as the IREST = 2 option, but for cases in which the previous calculation 
was either laminar or used an algebraic turbulence model, and the current cal- 
culation uses a two -equation turbulence model. 

Two restart files are written and/or read. One contains the computational mesh, 
and the other contains the mean flow field and the k and s values (if a two-equation 
turbulence model is being used.) For IREST = 0 or 1, the initial mean flow field 
will be generated in subroutine INIT, and the initial k and £ values (if necessary) 
will be generated in subroutine KEINIT. The default value is 0. 

NRQIN Unit number for reading the restart flow field. The default value is 1 1. 

NRQOUT Unit number for writing the restart flow field. The default value is 12. 

NRXIN Unit number for reading the restart computational mesh. The default value is 13. 

NRXOUT Unit number for writing the restart computational mesh. The default value is 14. 

3.1.4 Namelist IQ 
Printout Controls 

The following parameters specify which variables are to be printed, and at what locations in both time 
and space. 

IVOUT An array of up to 50 elements specifying which variables are to be printed. The 

variables currently available for printing are listed and defined in Table 3- 3. 4 The 
default values are 1, 2, 20, 30, 40, 45*0, corresponding to printout of x and 
^-velocity, and static density, pressure, and temperature. 

IWOUTI A 2-element array, given as IWOUTl(IBOUND), indicating whether or not vari- 
ous parameters are to be printed along the £ boundaries. The subscript 
IBOUND = 1 or 2, corresponding to the £ = 0 and £ — 1 boundaries, respectively. 
Valid values of IWOUTl(IBOUND) are: 

0 for no printout. 


4 The definitions of k ( and k t in Table 3-3 (IVOUT = 92 and 102) assume a constant turbulent Prandtl number is 
being specified in namelist TURB. 
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IW0UT2 


IDEBUG 


1 for printout along the boundary, with normal derivatives computed using 
three-point one-sided differencing. 

— 1 for printout along the boundary, with normal derivatives computed using 

two-point one-sided differencing. 

The default values are both 0. 

A 2-element array, given as IWOUT2(IBOUND), indicating whether or not vari- 
ous parameters are to be printed along the >j boundanes. The subscript 
IBOUND = 1 or 2, corresponding to the q = 0 and >/ = 1 boundaries, respectively. 
Valid values of IWOUT2(IBOUND) are: 

0 for no printout. 

1 for printout along the boundary, with normal derivatives computed using 
three-point one-sided differencing. 

— 1 for printout along the boundary, with normal derivatives computed using 

two-point one-sided differencing. 

The default values are both 0. 

The parameters printed via the IWOUT1 and/or IWOUT2 input arrays are the 
Cartesian coordinates x and y, the static pressure p, the skin friction coefficient c/, 
the shear stress t„, the static temperature T, the heat transfer coefficient h, the heat 
flux <7*, and the Stanton number St. See Section 4.1 for the definitions of these 
parameters. Note that some of these parameters are meaningful only if the 
boundary is a solid wall. In general, using three-point one-sided differences to 
compute normal derivatives will be more accurate. However, for nearly-separated 
flows, it has been found that three-point differencing can give misleading negative 
values of t.. and c f . The parameters are printed at every boundary point, not just 
at the points specified by the input parameters IPRT1 and IPRT2, or IPRT1A and 
IPRT2A. 

An array of up to 20 elements used to turn on additional printout, normally used 
for debugging purposes. Except where noted, set.IDEBUG(I) = 1 for printout 
number I. For options 1 through 8, the input parameters IPRT1 and IPRT2, or 
IPRT1A and IPRT2A, determine the grid points at which the printout appears. 
Note that some of these options can generate a lot of output. Judicious use of the 
TPRT" controls is recommended. The debug options currently available are as 
follows: 

Number Printout 

1 Coefficient block submatrices and source term subvectors at time 
level n = IDEBUG(l) if IDEBUG(1)>0, or at time levels 
n > 1 IDEBUG(l) | if IDEBUG(l) < 0. This printout is done af- 
ter the elimination of any off-diagonal boundary condition sub- 
matrices (subroutine BCELIM) and after any artificial viscosity 
has been added (subroutine AVISC1 or 2), but before any rear- 
rangement of the elements in the boundary condition submatrices 
(subroutine FILTER.) 

2 Coefficient block submatrices and source term subvectors at time 
level n- IDEBUG(2) if IDEBUG(2)>0, or at time levels 
n > | IDEBUG(2) | if IDEBUG(2) < 0. This printout is done af- 
ter the elimination of any off-diagonal boundary condition sub- 
matrices (subroutine BCELIM), but before any artificial viscosity 
has been added (subroutine AVISC1 or 2) and before any rear- 
rangement of the elements in the boundary condition submatrices 
(subroutine FILTER.) 
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Number Printout 


IUNITS 

IPRT 

IPRTA 

IPRT1 

IPRT2 

IPRT1A 

IPRT2A 


3 Boundary condition coefficient block submatrices and source term 
subvectors at time level n= IDEBUG(3) if IDEBUG(3)>0, or 
at time levels n > | IDEBUG(3) | if IDEBUG(3) < 0. This print- 
out is done before the elimination of any off-diagonal boundary 
condition submatrices (subroutine BCELIM) and before any re- 
arrangement of the elements in the boundary condition submatri- 
ces (subroutine FILTER.) 

4 Boundary condition coefficient block submatrices and source term 
subvectors at time level n = IDEBUG(4) if IDEBUG(4) > 0, or 
at time levels n > | IDEBUG(4) | if IDEBUG(4) < 0. This print- 
out is done after the elimination of any off-diagonal boundary 
condition submatrices^ (subroutine BCELIM) and after any rear- 
rangement of the elements Ip the boundary condition submatrices 
(subroutine FILTER.) 

5 Intermediate solution Q* after the first ADI sweep at time level 

rc=IDEBUG(5) if IDEBUG(5)>0, or at time levels 

n > I IDEBUG(5) | if IDEBUG(5) < 0. 

6 Final solution Q* after the last ADI sweep at time level 

n = IDEBUG(6) if IDEBUG(6)>0, or at time levels 

*> | IDEBUG(6) | if IDEBUG(6) < 0. 

7 Cartesian coordinates, metric coefficients, and inverse of the grid 
transformation Jacobian computed in subroutine METS. 

8 Baldwin- Lomax turbulence model parameters at time level 

n — IDEBUG(8) if IDEBUG(8) > 0, or at time levels 

n > i IDEBUG(8) | if IDEBUG(8) < 0. 

The default values are all 0. 

0 for input and output in English units. 

1 for input and output in SI units. 

The default value is 0. 

Results are printed every IPRT'th time level. However, the initial and final flow 
fields are always printed. The default value is 1. 

An array of up to 101 elements specifying the time levels at which results are to 
be printed. The initial conditions are at time level 1. If the calculation converges, 
or if the pressure or temperature is non-positive, the results are printed regardless 
of the value of IPRTA. If this parameter is specified, it overrides the value of 
IPRT. The default values are all 0. 

Flow field results are printed at every IPRTTth grid point in the £ direction. 
However, the results at the boundaries are always printed. The default value is 1. 

Flow field results are printed at every IPRT2 / th grid point in the y direction. 
However, the results at the boundaries are always printed. The default value is L 

An array of up to N1 elements (see Namelist NUM) specifying the £ indices at 
which flow field results are to be printed. The indices must be specified in as- 
cending order. If this parameter is specified, it overrides the value of IPRT1. The 
default values are all 0. 

An array of up to N2 elements (see Namelist NUM) specifying the tj indices at 
which flow field results are to be printed. The indices must be specified in as- 
cending order. If this parameter is specified, it overrides the value of IPRT2. The 
default values are all 0. 
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NHMAX 


Maximum number of time levels allowed in the printout of the convergence history 
file (not counting the first two, which are always printed.) The default value is 100. 


Plot File Controls 

In addition to the printed output, files called plot files may be written for use by various post-processing 
routines. The following parameters specify the type of plot files to be written, and at what locations in both 
time and space. These plot files are described in greater detail in Section 4.2. 


IPLOT 


IPLT 


IPLTA 


0 for no plot file. 

1 to write results into an auxiliary file, in CONTOUR format, for later post- 
processing. If multiple time levels are to be written into the file, they will be 
stacked sequentially. The value of the time t will not be written into the 
file. 5 

— 1 to write results into an auxiliary file in CONTOUR format. For multiple 

time levels, t uj will be stored in the z slot. (The subscripts i and j represent 
grid point indices in the £ and t] directions.) 

2 to write results into auxiliary files, in PLOT3D/ WHOLE format. Multiple 
time levels will be stacked sequentially, 6 with iij stored in the Q file header. 7 

3 to write results into auxiliary files, in PLOT3D/PLANES format. Multiple 
time levels will be stacked sequentially, 6 with tj,i stored in the Q file header. 7 
Since Proteus 2-D is two-dimensioni, the IPLOT = 3 option creates XYZ 
and Q files identical to those created using the IPLOT = 2 option. 

— 3 to write results into auxiliary files, in PLOT3D/ PLANES format. For mul- 

tiple time levels, t will be stored in the z slot in the XYZ file. 

4 to write results into auxiliary files, in PLOT2D format. Multiple time levels 
will be stacked sequentially, 6 with ti,i stored in the Q file header. 7 

The default value is 0. 

Results are written into the plot file every IPLT'th time level. However, if 
IPLT > 0, the initial and final flow fields are automatically included in the file. If 
IPLT = 0, only the final flow field is written into the file. The default value is 0. 

An array of up to 101 elements specifying the time levels at which results are to 
be written into the plot file. The initial conditions are at time level 1. If the cal- 
culation converges, or if the pressure or temperature is non-positive, the results are 
written into the plot file regardless of the value of IPLTA. If this parameter is 
specified, it overrides the value of IPLT. The default values are all 0. 


Unit Numbers 

The following parameters specify the Fortran unit numbers used for various input and output files. 
NIN, the unit number for reading the standard input file, is hardwired in the program as 5. 

NOUT Unit number for printing standard output. The default value is 6. 

NGRID Unit number for reading computational coordinate system file. The default value 

is 7. 


5 The IPLOT = - 1 option is the better one to use for CONTOUR plot files. The IPLOT = 1 option is included 
only to be consistent with the various PLOT3D and PLOT2D options. 

6 The current version of PLOT3D does not work for multiple time levels, although future versions might. You can, 
however, fake it out using the IPLOT = — 3 option. 

7 Note that with IDTAU = 5 or 6, t will vary in space, and therefore t it j ^ ?i,i* 
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NPLOTX Unit number for writing XYZ file when using PL0T3D or PL0T2D plot file 
format. The default value is 8. 

NPLOT Unit number for writing CONTOUR plot file, or for writing Q file when using 

PL0T3D or PLOT2D format. The default value is 9. 

NHIST Unit number for writing convergence history file. The default value is 10. 

NSCR1 Unit number for scratch file used in subroutine PLOT when IPLOT = — 3. The 

default value is 20. 

3.1.5 Namelist GMTRY 


Coordinate System Type 

These parameters specify the type of flow domain being analyzed. Simple Cartesian or polar config- 
urations can be done automatically. For more complex geometries, the configuration is determined by 
reading a pre-stored coordinate file. Note however, that the number of grid points and their distribution 
can be changed by the parameters in namelist NUM. 

IAXI 0 for a two-dimensional planar calculation. 

1 for an axisymmetric calculation. 

The default value is 0. 

NGEOM Flag used to specify type of computational coordinates. Currently coded are: 

1 Cartesian (x-j;) computational coordinates. 

2 Polar (r'-d*) computational coordinates. 8 

10 Get computational coordinates from coordinate system file. The contents of 
this file are described in Section 3.2. 

The default value is 1. 

Cartesian Computational Coordinates 

The following parameters specify the size of the flow domain for the Cartesian coordinate option 
(NGEOM = 1). The computational (f ,»j) domain for this option is shown in physical (xj>) space in Figure 
3.1. 


XMIN 

XMAX 

YMIN 

YMAX 


Minimum x-coordinate for Cartesian coordinate option. 
Maximum x-coordinate for Cartesian coordinate option. 
Minimum ^-coordinate for Cartesian coordinate option. 
Maximum ^-coordinate for Cartesian coordinate option. 


The default value is 0.0. 
The default value is 1.0. 
The default value is 0.0. 
The default value is 1.0. 


8 There may be some confusion between the axisymmetric flow option and the polar coordinate system option, or 
between the axisymmetric radius r and the polar coordinate r'. They are not the same thing. The governing flow 
equations were developed by originally writing them in Cartesian (x-y) coordinates, then transforming them into 
generalized (£-rj) coordinates. Therefore, any computational coordinate system that is used, including the polar 
coordinate system, must be related to the original Cartesian system through the transformation metrics and 
Jacobian. The parameters r f and 0' are used only to initially define the coo rdin ates in the NGEOM = 2 option. 
Now, if the (x-j>) coordinates, no matter how they are obtained, are rotated about the Cartesian x axis, the result 
is a cylindrical coordinate coordinate system with y representing the radius r. Thus, the axisymmetric flow option 
can be used with any of the coordinate system options. The polar coordinate option would be useful, for instance, 
for flow over a sphere. 
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The following parameters specify the size of the flow domain for the polar coordinate option 
(NGEOM = 2). The computational (£,»j) domain for this option is shown in physical (xjO space in Figure 
3.2. 

RMIN Minimum /-coordinate for polar coordinate option. The default value is 0.0. 

RMAX Maximum /-coordinate for polar coordinate option. The default value is 1.0. 

THMIN Minimum ^'-coordinate in degrees for polar coordinate option. The default value 

is 0.0. 

THMAX Maximum ^'-coordinate in degrees for polar coordinate option. The default value 

is 90.0. 


Proteus 2-D User's Guide 


3.0 Input Description 19 




V* 



Figure 3.2 - Polar computational coordinates. 


3.1.6 Namelist FLOW 

Control Flags 

The following parameters are flags that specify the type of equations to be solved, and which variables 
are being supplied as initial conditions. 

IEULER 0 for a full time-averaged Navier-Stokes calculation. 

1 for an Euler calculation (i.e., neglecting all viscous and heat conduction terms.) 

The default value is 0. 

ITHIN A 2-element array, specified as ITHIN(IDIR), indicating whether or not the thin- 

layer option is to be used in direction IDIR. The subscript IDIR = 1 or 2, corre- 
sponding to the and r\ directions, respectively. Valid values of ITHIN(IDIR) are: 

0 to include second derivative viscous terms in direction IDIR. 

1 to use the thin-layer option in direction IDIR. This does not decrease the ex- 
ecution time much, but may be useful if the grid in direction IDIR is not suf- 
ficiently dense to resolve second derivatives in that direction. 

The default values are both 0. 

IHSTAG 0 to solve the energy equation. The dimensioning parameter NEQP must be at 
least 4 (if ISWIRL = 0) or 5 (if ISWIRL = 1). (See Section 6.2.) 

1 to eliminate the energy equation by assuming constant stagnation enthalpy per 
unit mass. This significantly lowers the overall execution time. 

The default value is 0. 
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ILAMV 0 for constant laminar viscosity and thermal conductivity coefficients equal to 

MUR and KTR. 

1 for variable laminar viscosity and thermal conductivity coefficients, computed 
as a function of local temperature using Sutherland's formula for air (White, 
1974). 

The default value is 0. 

ISWIRL 0 for no swirl. 

1 for a swirling calculation in axisymmetric flow. The dimensioning parameter 
NEQP must be at least 4 (if IHSTAG = 1) or 5 (if IHSTAG = 0). (See Section 
6 . 2 .) 

The default value is 0. 

ICVARS Parameter specifying which variables are being supplied as initial conditions for the 

time marching procedure by subroutine INIT. Remember that the initial condi- 
tions must be nondimensionalized by the reference conditions listed in Table 3-2. 
(See Section 5.0 for details on defining initial conditions.) When the energy 
equation is being solved (IHSTAG = 0), and the flow is two-dimensional, or 
axisymmetric without swirl (IAXI = 0 or ISWIRL = 0), the allowed values are: 


ICVARS Variables Supplied By INIT 

1 p, pu, pv, E t 

2 p, u, v, T 

3 p, u, v, T 

4 p, u, v, p 

5 q, u, v, T 

6 p, M, a„ T 

When the energy equation is being solved (IHSTAG = 0), and the flow is 
axisymmetric with swirl (IAXI = 1 and ISWIRL = 1), the allowed values are: 

ICVARS Variables Supplied By INIT 

p, pu, pv, pw, E t 
p, u, v, w, T 
p, u, v, w, T 
P, m. v, w, p 
c„, u, v, w, T 
p, M, a.,, a w , T 

When constant stagnation enthalpy is assumed (IHSTAG = 1), and the flow is 
two-dimensional, or axisymmetric without swirl (IAXI = 0 or ISWIRL = 0), the 
allowed values are: 

ICVARS Variables Supplied By INIT 

1 
2 
3 

5 

6 

When constant stagnation enthalpy is assumed (IHSTAG = 1), and the flow is 
axisymmetric with swirl (IAXI — 1 and ISWIRL = 1), the allowed values are: 


p, pu, pv 
P, u, v 

P, u, v 

q, u, v 
P, M, a. 


1 

2 

3 

4 

5 

6 
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ICVARS Variables Supplied By INIT 

1 p, pu, pv, pw 

2 p, u, v, w 

3 p, «, v, w 

5 c f , u, v, w 

6 p, M, ct„ i. 

In the above tables, c p , tx„ and a* represent static pressure coefficient, flow angle 
in degrees in the x-y (or x-r) plane, and flow angle in degrees in the x-9 plane, re- 
spectively. The default value is 2. 


Reference Conditions 

The following parameters specify' the six basic reference conditions for length, velocity, temperature, 
density, viscosity, and thermal conductivity. These reference conditions are used, along with some addi- 
tional reference conditions derived from them, as the nondimensionalizing factors for nondimensional input 
and output parameters. The dimensional reference conditions may be read in using either English or SI 
units, depending on the value of IUNITS. 

LR Reference length L, in feet (meters). This is a real variable. The default value is 

1 . 0 . 

UR Reference velocity u, in ft/sec (m/sec). Either UR or MACHR may be specified, 

but not both. The unspecified one will be computed from the remaining reference 
conditions. The default value is o, = (y r R T r )' 12 , the speed of sound at the reference 
temperature. 

MACHR Reference Mach number, M r = u r l{y r RT r ) 1 ' 2 . Either MACHR or UR may be 
specified, but not both. The unspecified one will be computed from the remaining 
reference conditions. This is a real variable. The default value is 0.0. 

TR Reference temperature T, in °R (K). The default value is 519.0 °R (288.333 K). 

RHOR Reference density p, in lb m /ft 3 (kg/m 3 ). The default value is 0.07645 lb m /ft 3 

(1.22461 kg/m 3 ). 

MUR Reference viscosity i±, in lb m /ft-sec (kg/m-sec). Either MUR or RER may be 

specified, but not both. The unspecified one will be computed from the remaining 
reference conditions. This is a real variable. The default value is the viscosity for 
air at the reference temperature TR. 

RER Reference Reynolds number, Re, = p r u,L,lp. r . Either RER or MUR may be spec- 

ified, but not both. The unspecified one will be computed from the remaining 
reference conditions. The default value is 0.0. 

KTR Reference thermal conductivity k r in lb m -ft/sec 3 -°R (kg-m/sec 3 -K). Either KTR 

or PRLR may be specified, but not both. The unspecified one will be computed 
from the remaining reference conditions. This is a real variable. The default value 
is the thermal conductivity for air at the reference temperature TR. 

PRLR Reference laminar Prandtl number Pr /f — c Pr p,j Here c Pr is the specific heat at 

constant pressure, defined as either c p (T,) or y,RI(y r — 1), depending on whether 
or not a value is being specified for the input parameter GAMR. Either PRLR 
or KTR may be specified, but not both. The unspecified one will be computed 
from the remaining reference conditions. The default value is 0.0. 
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Fluid Properties 

The following parameters provide information about the fluid being used. 


RG 

GAMR 


HSTAGR 


Gas constant R in ft 2 /sec 2 -°R (m 2 /sec 2 -K). The default value is 1716 ft 2 /sec 2 -°R 
(286.96 m 2 /sec 2 -K). 

Reference ratio of specific heats, y r = c Pr jCy r . This parameter acts as a flag for a 
constant specific heat option. If a non-zero value for GAMR is specified by the 
user, the specific heats c p and c v are computed from GAMR and RG, and treated 
as constants. Otherwise they are computed locally as a function of temperature. 
The default value is 0.0. 

Stagnation enthalpy h T in ft 2 /sec 2 (m 2 /sec 2 ). This parameter is only used with the 
constant stagnation enthalpy option (IHSTAG = 1). The default value is com- 
puted from the reference conditions. 


3.1.7 Namelist BC 

The parameters in this namelist specify the boundary conditions to be used for the mean flow equations 
and, if necessary, for the k-e turbulence model equations. For the mean flow, NEQ conditions must be 
specified at each computational boundary, where NEQ is the number of coupled equations being solved. 
NEQ will be equal to 3, 4, or 5 depending on the values of IHSTAG and ISWIRL. (See Table 3-4.) 


Note that the boundary conditions may be thought of as simply NEQ additional equations to be solved 
on the boundary. They do not necessarily have to be associated one-to-one with the governing differential 
equations or the dependent variables. They must, however, be functions of the dependent variables and 
sufficiently complete to set constraints on each of the dependent variables through their functional form. 
They must also, of course, be independent of one another and physically appropriate for the problem being 
solved. 


Three different methods are available for setting boundary conditions for steady flow computations. 
The first, and easiest, way is to specify the type of boundary (i.e., solid wall, symmetry, etc.) using the KBC 
input parameters. These parameters act as "meta" flags, triggering the automatic setting of the necessary 
NEQ individual boundary conditions at the specified boundary. 

Second, if more flexibility is needed, the NEQ individual boundary conditions may be set for each 
boundary 7 using the JBC and GBC input parameters. The boundary condition type (specified value, speci- 
fied gradient, etc.) is given by JBC, and the boundary condition value by GBC. With these parameters, the 
same conditions are applied over the entire surface. 

And third, if even greater flexibility is needed, the NEQ individual boundary conditions may be set for 
each boundary using the IBC and FBC input parameters. These are analogous to the JBC and GBC pa- 
rameters (i.e., the boundary condition type is given by IBC, and the value by FBC), but they allow a 
point-by-point distribution of type and value to be specified instead of using the same type and value over 
the entire surface. 9 


For a given boundary, boundary conditions specified via the KBC parameters override those specified 
using the JBC and GBC parameters, which in turn override those specified using the IBC and FBC pa- 
rameters. However, the different methods may be used in combination as long as they don t conflict. For 
example, the KBC parameters may be used for two boundaries, the JBC-and GBC parameters for the third 
boundary, and the IBC and FBC parameters for the fourth boundary. And, on a single boundary, the JBC 
and GBC parameters may be used for some of the NEQ boundary conditions, and the IBC and FBC pa- 
rameters for the rest. 


9 However, note that a specified point-by -point distribution of a function value is most easily set using the "no change 
from initial conditions" option with the JBC parameters. 
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Unsteady boundary conditions may be used when individual boundary conditions are specified for the 
entire surface, but not when boundary conditions are specified point-by-point. 

With one exception, the NEQ boundary conditions at each boundary may be specified in any order. 
The exception is any condition on one of the dependent conservation variables Q. These must be specified 
in the order given in Table 3-4. 

If a problem requires a boundary condition of the form A F= 0, F=/, dFld<f> =f or VF- n =/, where 
F is not one of the functions already built into Proteus , the subroutines BCF and BCFLIN may be used. 
This requires that the user supply subroutine BCFLIN. A test case with a user-written version of BCFLIN 
is presented in Section 9.2. Subroutines BCF and BCFLIN are described in detail in Volume 3. 

If the Chien k~z turbulence model is being used, boundary conditions for fc and e must be specified in 
addition to those specified for the mean flow equations. (Unless a spatially periodic boundary condition is 
being used for the mean flow. In this case, separate boundary conditions for k and z are not needed.) 
Surface boundary conditions may be specified using the JBCT/GBCT parameters, or point -by-point 
boundary conditions may be specified using the IBCT/FBCT parameters. These parameters are analogous 
to the JBC/GBC and IBC/FBC parameters used for the mean flow boundary conditions. There are no 
input parameters for k-z boundary conditions that are analogous to the KBC parameters. 

Mean Flow Boundary Types with KBC 

The following parameters set mean flow boundary conditions by specifying the type of boundary (i.e., 
solid wall, symmetry, etc.). These parameters act as "meta" flags, triggering the automatic setting of the 
necessary JBC and GBC values. 

KBC1 An array, given as KBCl(IBOUND), specifying the types of boundaries in the £ 

direction. The subscript IBOUND = 1 or 2, corresponding to the £ — 0 and 
£ = 1 boundaries, respectively. The default values are both 0. 

KBC2 An array, given as KBC2(IBOUND), specifying the types of boundaries in the r\ 

direction. The subscript IBOUND = 1 or 2, corresponding to the >7 = 0 and 
r\ — 1 boundaries, respectively. The default values are both 0. 

The boundary types that may be sp cified are described briefly in the following table, and in greater 
detail in Table 3-5. For boundary types involving gradient boundary conditions, 2-point differencing is used 
if the input KBC value is positive, and 3-point differencing is used if it is negative. For boundary types 
involving "no change from initial conditions"-type boundary conditions (e.g., A7 1 — 0), the proper boundary 
values must be set in the initial conditions. When the KBC parameters are used, the corresponding GBC 
and FBC parameters should be defaulted. 

KBC Value Boundary Type 

± 1 No-slip adiabatic wall. 

± 2 No-slip wall, specified temperature. 

± 3 Inviscid wall. 

10 Subsonic inflow, linear extrapolation. 

± 1 1 Subsonic inflow, zero gradient. 

20 Subsonic outflow, linear extrapolation. 

± 21 Subsonic outflow, zero gradient. 

30 Supersonic inflow. 

40 Supersonic outflow, linear extrapolation. 

± 41 Supersonic outflow, zero gradient. 

± 50 Symmetry. 

60 Spatially periodic. 

Boundary conditions specified using the KBC parameter for a given boundary override any boundary 
condition types specified for that boundary using the JBC or IBC parameters. Note, however, that since 
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the default values for the KBC parameters are all 0, the default procedure for specifying boundary conditions 
is by using the JBC and GBC parameters. 

Surface Mean Flow Boundary Condition Types and Values with JBC and GBC 

The following parameters set the NEQ individual mean flow boundary condition types and values for 
each boundary using the JBC and GBC parameters. With these parameters, the same conditions are applied 
over the entire boundary. Remember that the boundary condition values must be nondimensionalized by 
the reference conditions listed in Table 3-2. If some of the boundary conditions are being specified using 
the IBC and FBC parameters, the appropriate JBC parameters must be set equal to - 1 , as described below. 

JBC1 A two-dimensional array, given as JBC 1 (IEQ, IBOUND), specifying the type of 

boundary conditions to be used on the £ = 0 and £ = 1 boundaries. Here 
IEQ = 1 to NEQ corresponding to each equation, and IBOUND = 1 or 2 corre- 
sponding to the £ = 0 and { = 1 boundaries, respectively. Setting JBC1 = - 1 
signals the code to use boundary conditions specified point-by-point, as given by 
the input arrays IBC1 and FBC1. See Table 3-6 for a list of allowed boundary 
condition types. The default values are all 0. 

JBC2 A two-dimensional array, given as JBC 2 (IEQ, IBOUND), specifying the type of 

boundary conditions to be used on the rj = 0 and > 7=1 boundaries. Here 
IEQ = 1 to NEQ corresponding to each equation, and IBOUND = 1 or 2 corre- 
sponding to the rj = 0 and r\ = 1 boundaries, respectively. Setting JBC2 = - 1 
signals the code to use boundary conditions specified point-by-point, as given by 
the input arrays IBC2 and FBC2. See Table 3-6 for a list of allowed boundary 
condition types. The default values are all 0. 

GBC1 A two-dimensional array, given as GBC 1 (IEQ, IBOUND), specifying the values for 

the steady boundary conditions to be used on the ^ = 0 and £ = 1 boundaries. 
Here IEQ = 1 to NEQ corresponding to each equation, and IBOUND = 1 or 2 
corresponding to the £ = 0 and { = 1 boundaries, respectively. The default values 
are all 0 . 0 . 

# 

GBC2 A two-dimensional array, given as GBC2(IEQ, IBOUND), specifying the values for 

the steady boundary conditions to be used on the >7 = 0 and rj = 1 boundaries. 
Here IEQ = 1 to NEQ corresponding to each equation, and IBOUND = 1 or 2 
corresponding to the 77 = 0 and rj = 1 boundaries, respectively. The default values 
are all 0 . 0 . 

Note that boundary condition types 2, 12 , 22, etc., are specified values of the derivative with respect to 
the computational coordinate, not with respect to the physical distance in the direction of the computational 
coordinate. See Section 6.3 of Volume 1 for details. 

Note also that normal derivative boundary condition values are positive in the direction of increasing £ 
or r\. Thus, a positive value for GBC at { = 0 or r\ = 0 implies a flux into the computational domain, and 
a positive GBC at £ = 1 or rj = 1 implies a flux out of the computational domain. See Section 6.4 of Vol- 
ume 1 for details. Similarly, the normal velocity V n is positive in the direction of increasing l or rj. Thus, 
a positive V n at { = 0 or r\ = 0 implies flow into the computational domain, and a positive V n at f = 1 or 
>7 = 1 implies flow out of the computational domain. See the description of subroutine BCVDIR in Section 
4.2 of Volume 3 for details. 

Boundary conditions specified using the JBC and GBC parameters for given values of IEQ and 
IBOUND override any boundary conditions specified for those values of IEQ and IBOUND using the IBC 
and FBC parameters. Note that since the default values for the JBC parameters are all 0, the default 
boundary conditions are *no change from initial conditions* for the conservation variables. 
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Point- by -Point Mean Flow Boundary Condition Types and Values with IBC and FBC 

The following parameters set the NEQ individual mean flow boundary condition types and values for 
each boundary using the IBC and FBC parameters. With these parameters, point-by-point distributions 
are specified on the boundary for the boundary condition types and values. Remember that the boundary 
condition values must be nondimensionalized by the reference conditions listed in Table 3-2. Note that 
these parameters are activated by setting the appropriate JBC parameters equal to — 1, as described below. 

IBC1 A three-dimensional array, given as IBC 1(12, IEQ, IBOUND), specifying the type 

of boundary conditions to be used on the £ = 0 and £ = 1 boundaries. Here 
12 = 1 to N2 corresponding to each grid point on the boundary, IEQ =1 to NEQ 
corresponding to each equation, and IBOUND = 1 or 2 corresponding to the 
£ = 0 and £ = 1 boundaries, respectively. JBC 1(IEQ, IBOUND) must be set equal 
to - 1. See Table 3-6 for a list of allowed boundary condition types. The default 
values are all 0. 

IBC2 A three-dimensional array, given as IBC2(I1, IEQ, IBOUND), specifying the type 

of boundary conditions to be used on the 7 = 0 and 7 — 1 boundaries. Here 
II = 1 to N1 corresponding to each grid point on the boundary, IEQ =1 to NEQ 
corresponding to each equation, and IBOUND = 1 or 2 corresponding to the 
7 =s 0 and 7 — 1 boundaries, respectively. JBC2(IEQ, IBOUND) must be set equal 
to — 1. See Table 3-6 for a list of allowed boundary condition types. The default 
values are all 0. 

FBC1 A three-dimensional array, given as FBCl(I2J_EQ,IBOUND), specifying the val- 

ues for the steady boundary conditions to be used on the £ = 0 and £ = 1 bound- 
aries. Here 12 = 1 to N2 corresponding to each grid point on the boundary , 
IEQ = 1 to NEQ corresponding to each equation, and IBOUND = 1 or 2 corre- 
sponding to the £ = 0 and £ = 1 boundaries, respectively. The default values are 
all 0.0. 

FBC2 A three-dimensional array, given as FBC2(I1, IEQ, IBOUND), specifying the val- 

ues for the steady boundary conditions to be used on the 7 = 0 and 7 — 1 bound- 
aries. Here 11= 1 to N1 corresponding to each grid point on the boundary, 
IEQ = 1 to NEQ corresponding to each equation, and IBOUND = 1 or 2 corre- 
sponding to tht 7 = 0 and 7 = 1 boundaries, respectively. The default values are 
all 0.0. 

Note that boundary condition types 2, 12, 22, etc., are specified values of the derivative with respect to 
the computational coordinate, not with respect to the physical distance in the direction of the computational 
coordinate. See Section 6.3 of Volume 1 for details. 

Note also that normal derivative boundary condition values are positive in the direction of increasing £ 
or 7. Thus, a positive value for FBC at £ = 0 or 7 = 0 implies a flux into the computational domain, and 
a positive FBC at £ = 1 or 7 = 1 implies a flux out of the computational domain. See Section 6.4 of Vol- 
ume 1 for details. Similarly, the normal velocity V n is positive in the direction of increasing £ or 7. Thus, 
a positive V n at £ = 0 or 7 = 0 implies flow into the computational domain, and a positive V n at £ = 1 or 
7 = 1 implies flow out of the computational domain. See the description of subroutine BCVDIR in Section 
4.2 of Volume 3 for details. 

Unsteady Mean Flow Boundary Conditions 

The following parameters are used to specify unsteady mean flow boundary conditions. The boundary 
condition type (specified value, specified gradient, etc.) is given by JBC, as described above, but the value 
is given by GTBC. The type of unsteadiness (general or periodic) is given by JTBC. 

JTBC1 A two-dimensional array, given as JTBC 1 (IEQ, IBOUND), specifying the type of 

time dependency for the boundary conditions on the £ = 0 and £ = 1 boundaries. 
Here IEQ = 1 to NEQ corresponding to each equation, and IBOUND = 1 or 2 
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corresponding to the l = 0 and £ = 1 boundaries, respectively. Valid values of 
JTBCl(IEQ,IBOUND) are: 

0 for a steady boundary condition, whose value is given by GBC1. 

1 for a general unsteady boundary condition, whose value is determined by linear 
interpolation in the input table of GTBC1 vs. NTBCA. 

2 for a time-periodic boundary condition of the form gi + gi sm(g 3 n + g A ), where 
n is the time level and g, through g A are given by the first four values of GTBC 1 . 

The default values are all 0. 

JTBC2 A two-dimensional array, given as JTBC2(IEQ,IBOUND), specifying the type of 

time dependency for the boundary conditions on the >j = 0 and r\ = 1 boundaries. 
Here IEQ = 1 to NEQ corresponding to each equation, and IBOUND = 1 or 2 
corresponding to the rj = 0 and rj = 1 boundaries, respectively. Valid values of 
JTBC2(IEQ, IBOUND) are: 

0 for a steady boundary condition, whose value is given by GBC2. 

1 for a general unsteady boundary condition, whose value is determined by linear 
interpolation in the input table of GTBC2 vs. NTBCA. 

2 for a time-periodic boundary condition of the form g\ + gi sinfert 4- #), where 
n is the time level and g x through g % are given by the first four values of GTBC2. 

The default values are all 0. 

NTBC Number of values in the tables of GTBC1 and/or GTBC2 vs. NTBCA for the 

general unsteady boundary condition option. The maximum value allowed is the 
value of the dimensioning parameter NTP. (See Section 6.2.) The default value 
is 0. 

NTBCA An array of NTBC time levels at which GTBC1 and/or GTBC2 are specified for 

the general unsteady boundary condition option. The default values are all 0. 

GTBC1 A three-dimensional array, given as GTBCl(ITBC,IEQ } IBOUND), used in the 

unsteady and time-periodic boundary condition options for the £ = 0 and £ = 1 
boundaries. Here IEQ = 1 to NEQ corresponding to each equation, and 

IBOUND = 1 or 2 corresponding to the £ = 0 and f = 1 boundaries, respectively. 
For general unsteady boundary conditions the subscript ITBC = 1 to NTBC, 
corresponding to the time levels in the array NTBCA, and GTBC1 specifies the 
boundary condition value directly. For time-periodic boundary conditions the 
subscript ITBC = 1 to 4, and GTBC1 specifies the four coefficients in the equation 
used to determine the boundary condition value. The default values are all 0.0. 

GTBC2 A three-dimensional array, given as GTBC2(ITBC,IEQ,IBOUND), used in the 

unsteady and time-periodic boundary condition options for the y\ = 0 and r\ — 1 
boundaries. Here IEQ = 1 to NEQ corresponding to each equation, and 

IBOUND = 1 or 2 corresponding to the y\ = 0 and tj = 1 boundaries, respectively. 
For general unsteady boundary conditions the subscript ITBC = 1 to NTBC, 
corresponding to the time levels in the array NTBCA, and GTBC2 specifies the 
boundary condition value directly. For time-periodic boundary conditions the 
subscript ITBC = 1 to 4, and GTBC2 specifies the four coefficients in the equation 
used to determine the boundary condition value. The default values are all 0.0. 



The following parameters set the individual k and e boundary condition types and values for each 
boundary using the JBCT and GBCT parameters. With these parameters, the same conditions are applied 
over the entire boundary. Remember that the boundary condition values must be nondimensionalized by 
the reference conditions listed in Table 3-2. None of the following parameters are needed if spatially pen- 
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odic boundary conditions are being used. If either of the boundary conditions for a computational 
boundary is being specified using the IBCT and FBCT parameters, the appropriate JBCT parameters must 
be set equal to — 1 , as described below. 

JBCT1 A two-dimensional array, given as JBCT1(IEQ, IBOUND), specifying the type of 

boundary conditions to be used on the £ = 0 and £ = 1 boundanes. Here 
IEQ = 1 or 2 corresponding to k and c, respectively, and IBOUND = 1 or 2 cor- 
responding to the £ = 0 and £ = 1 boundaries, respectively. Setting JBCT1 = - 1 
signals the code to use boundary conditions specified point-by-point, as given by 
the input arrays IBCT1 and FBCT1. See Table 3-7 for a list of allowed boundary 
condition types. The default values are 0 for IEQ = 1, and 10 for IEQ = 2. 

JBCT2 A two-dimensional array, given as JBCT2(IEQ, IBOUND), specifying the type of 

boundary conditions to be used on the >7 = 0 and >7 = 1 boundanes. Here 
IEQ = 1 or 2 corresponding to k and c, respectively, and IBOUND = 1 or 2 cor- 
responding to the >j = 0 and rj = 1 boundaries, respectively. Setting JBCT2 = - 1 
signals the code to use boundary conditions specified point-by-point, as given by 
the input arrays IBCT2 and FBCT2. See Table 3-7 for a list of allowed boundary 
condition types. The default values are 0 for IEQ = 1, and 10 for IEQ = 2. 

GBCT1 A two-dimensional array, given as GBCT1(IEQ, IBOUND), specifying the values 

for the boundary conditions to be used on the £ = 0 and £ — 1 boundanes. Here 
IEQ = 1 or 2 corresponding to k and e, respectively, and IBOUND = l or 2 cor- 
responding to the £ = 0 and £ = 1 boundaries, respectively. The default values are 
all 0.0. 

GBCT2 A two-dimensional array, given as GBCT2(IEQ, IBOUND), specifying the values 

for the boundary conditions to be used on the >7 = 0 and >7 = 1 boundaries. Here 
IEQ = 1 or 2 corresponding to k and e, respectively, and IBOUND = 1 or 2 cor- 
responding to the >7 = 0 and >7 = 1 boundanes, respectively. The default values are 
all 0.0. 

Note that boundary condition types 2 and 12 are specified values of the derivative with respect to the 
computational coordinate, not with respect to the physical distance in the direction of the computational 
coordinate. See Section 6.3 of Volume 1 for details. 

Boundary conditions specified using the JBCT and GBCT parameters for given values of IEQ and 
IBOUND will override any boundary conditions specified for those values of IEQ and IBOUND using the 
IBCT and FBCT parameters. Note that the default values for the JBCT parameters are "no change from 
initial conditions" for the k and s. 


k-c Point-bv- Point Boundary Condition Types and Values with IBCT and FBCT 


The following parameters set the individual k and e boundary condition types and values for each 
boundary using the IBCT and FBCT parameters. With these parameters, point-by-point distributions are 
specified on the boundary for the boundary condition types and values. Remember that the boundary 
condition values must be nondimensionalized by the reference conditions listed in Table 3-2. None of the 
following parameters are needed if spatially periodic boundary conditions are being used. Note that these 
parameters are activated by setting the appropriate JBCT parameters equal to — 1, as described below. 


IBCT1 A three-dimensional array, given as IBCTl(I2,IEQ,IBOUND), specifying the type 

of boundary conditions to be used on the £ = 0 and £ = 1 boundanes. Here 
12 = 1 to N2 corresponding to each grid point on the boundary, IEQ = 1 or 2 
corresponding to k and e, respectively, and IBOUND = 1 or 2 corresponding to 
the £ = 0 and £ = 1 boundaries, respectively. JBCT1(IEQ, IBOUND) must be set 
equal to - 1. See Table 3-7 for a list of allowed boundary condition types. The 
default values are 0 for IEQ = 1, and 10 for IEQ = 2. 
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IBCT2 A three-dimensional array, given as IBCT2(I1,IEQ,IB0UND), specifying the type 

of boundary conditions to be used on the rj — 0 and >7 = 1 boundaries. Here 
11 = 1 to N 1 corresponding to each grid point on the boundary , IEQ = 1 or 2 
corresponding to k and e, respectively, and IBOUND = 1 or 2 corresponding to 
the ri = 0 and >7 = 1 boundaries, respectively. JBCT2(IEQ, IBOUND) must be set 
equal to - 1. See Table 3-7 for a list of allowed boundary condition types. The 
default values are 0 for IEQ = 1, and 10 for IEQ = 2. 

FBCT1 A three-dimensional array, given as FBCTl(I2,IEQ,IBOUND), specifying the 

values for the boundary conditions to be used on the c = 0 and c = 1 boundaries. 
Here 12 = 1 to N2 corresponding to each grid point on the boundary, IEQ = 1 or 
2 corresponding to k and e, respectively, and IBOUND = 1 or 2 corresponding to 
the £ = 0 and f = l boundaries, respectively. The default values are all 0.0. 

FBCT2 A three-dimensional array, given as FBCT2(I1, IEQ, IBOUND), specifying the 

values for the boundary conditions to be used on the >7 = 0 and > 7=1 boundaries. 
Here II = 1 to N1 corresponding to each grid point on the boundary, IEQ = 1 or 
2 corresponding to k and e, respectively, and IBOUND = 1 or 2 corresponding to 
the >7 = 0 and >7 = 1 boundaries, respectively. The default values are all 0.0. 

Note that boundary condition types 2 and 12 are specified values of the derivative with respect to the 
computational coordinate, not with respect to the physical distance in the direction of the computational 
coordinate. See Section 6.3 of Volume 1 for details. 

3.1.8 Namelist NUM 


Mesh Parameters 

The following parameters specify the number of mesh points and the degree of packing. 

Ml Number of grid points Ni in the g direction. For non-periodic boundary condi- 

tions in the | direction, the maximum value allowed is the value of the dimen- 
sioning parameter N 1 P. For spatially periodic boundary conditions, the maximum 
is NIP - 1. (See Section 6.2.) The default value is 5. 

T\ T 2 Number ot grid points N 2 in the rj direction. For non-periodic boundary condi- 

tions in the tj direction, the maximum value allowed is the value of the dimen- 
sioning parameter N2P. For spatially periodic boundary conditions, the maximum 
is N2P - 1. (See Section 6.2.) The default value is 5. 

IPACK A 2-element array, specified as IPACK(IDIR), indicating whether or not grid 

points are to be packed in direction IDIR. The subscript IDIR = 1 or 2, corre- 
sponding to the £ and >7 directions, respectively. Valid values of IPACK(IDIR) 
are: 

0 for no packing in direction IDIR. 

1 to pack points in direction IDIR using a transformation due to Roberts (1971). 
The location and amount of packing are specified by the array SQ. 

The default values are both 0. 

SQ A two-dimensional array controlling the packing of grid points near computational 

boundaries, specified as SQ(IDIR,IPC). The subscript IDIR = 1 or 2 corre- 
sponding to packing in the £ and >7 directions, respectively. The subscript 
IPC = 1 or 2, where SQ(IDIR,1) specifies the packing location, and SQ(IDIR,2) 
specifies the amount of packing. 

Meaningful values for SQ(IDIR,1) are 0.0, 0.5, and 1.0, where 0.0 corresponds to 
packing near the lower boundary only (i.e., at £ or *7 = 0, depending on IDIR), 1.0 
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corresponds to packing near the upper boundary only, and 0.5 corresponds to 
equal packing at both boundaries. 

Meaningful values for SQ(IDIR,2) are values above 1.0, but generally 1.1 or below. 
The closer SQ(IDIR,2) is to 1.0, the tighter the packing will be. 

The default values are SQ(IDIR,1) = 0.0 and SQ(IDIR,2) =1.01 for IDIR = 1 and 

2 . 


Artificial Viscosity Parameters 

The following parameters specify the type and amount of artificial viscosity to be used. 

IAV4E 0 for no fourth-order explicit artificial viscosity. 

1 to include fourth-order explicit artificial viscosity using the constant coefficient 
model of Steger (1978). 

2 to include fourth-order explicit artificial viscosity using the nonlinear coefficient 
model of Jameson, Schmidt, and Turkel (1981). 


IAV2E 


IAV2I 


CAVS4E 


CAVS2E 


CAVS2I 


The default value is 1 . 

0 for no second-order explicit artificial viscosity. 

1 to include second-order explicit artificial viscosity using the constant coefficient 
model. 

2 to include second-order explicit artificial viscosity using the nonlinear coefficient 
model of Jameson, Schmidt, and Turkel (1981). 

The default value is 0. 

0 for no second-order implicit artificial viscosity. 

1 to include second-order implicit artificial viscosity using the constant coefficient 
model of Steger (1978). 

The default value is 1. 

For the constant coefficient model, CAVS4E(IEQ) specifies the fourth-order arti- 
ficial viscosity coefficient eJP directly. For the nonlinear coefficient model it speci- 
fies the constant k 4 . The subscript IEQ varies from 1 to NEQ corresponding to 
each coupled equation. (See Table 3-4 for the order of the equations being solved.) 
Good values for a given application are usually determined by experience, but re- 
commended starting values are 1.0 for the constant coefficient model, 0.005 for the 
nonlinear model when spatially varying second-order time differencing is used, and 
0.0002 for the nonlinear model when a spatially constant first-order time differ- 
encing is used. The default values are all 1.0. 

For the constant coefficient model, CAVS2E(IEQ) specifies the second-order arti- 
ficial viscosity coefficient eg> directly. For the nonlinear coefficient model it speci- 
fies the constant k 2 . The subscript IEQ varies from 1 to NEQ corresponding to 
each coupled equation. (See Table 3-4 for the order of the equations being solved.) 
Good values for a given application are usually determined by experience, but re- 
commended starting values are 1.0 for the constant coefficient model, 0.01 for the 
nonlinear model for flows without shocks, and 0.1 for the nonlinear model for 
flows with shocks. The default values are all 1.0. 

Second-order implicit artificial viscosity coefficient, £/, specified as CAVS2I(IEQ). 
The subscript IEQ varies from 1 to NEQ corresponding to each coupled equation. 
(See Table 3-4 for the order of the equations being solved.) Good values for a 
given application are usually determined by experience, but recommended starting 
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values are 2.0 for the constant coefficient model, and 0.0 for the nonlinear model. 
The default values are all 2.0. 

Time Difference Centering Parameters 

The following parameters specify the type of time differencing scheme to be used. The generalized Beam 
and Warming (1978) time differencing formula is given by equation (3.1) of Volume 1. 

THC A 2-element array specifying the time differencing centering parameters 8 X and 0 2 

to be used for the continuity equation. The default values are 1.0 and 0.0. 

THX A 3-element array specifying the time differencing centering parameters 8i, 8 2 , and 

0 3 to be used for the ^-momentum equation. The default values are 1.0, 0.0, and 

0 . 0 . 

THY A 3-element array specifying the time differencing centering parameters 8\, 6 2 , and 

0 3 to be used for the y-momentum equation. The default values are 1.0, 0.0, and 

0 . 0 . 

THZ A 3-element array specifying the time differencing centering parameters 8 U d 2 , and 

0 3 to be used for the swirl momentum equation. The default values are 1.0, 0.0, 
and 0.0. 

THE A 3-element array specifying the time differencing centering parameters 8 1 , 8 2 , and 

03 to be used for the energy equation. The default values are 1.0, 0.0, and 0.0. 

THKE A 2-element array specifying the time differencing centering parameters 8 1 and 8 2 

to be used for the k-t equations. The default values are 1.0 and 0.0. 

The following table summarizes the time differencing schemes that may be used. The Euler implicit 
method is recommended for steady flows, and the 3-point backward implicit method is recommended for 
unsteady flows. 


n 

1 

1/2 

1 


0 2 0 3 Method 

0 0 Euler implicit 

0 1/2 Trapezoidal implicit 

1/2 1 3-point backward implicit 


Accuracy 

0( At) 
0( At ) 1 
O(At ) 2 


3.1.9 Namelist TIME 

Time SteR Selection Parameters 

The following parameters determine the procedure used to set the time step size for the mean flow 
equations, and to change it as the solution proceeds. The various options for 1DTAU are described in more 
detail in the description of subroutine TIMSTP in Section 4.2 of Volume 3. 

IDTMOD The time step size At is recomputed every IDTMOD'th step. The default value 
is 1. 

IDTAU 1 for a global (i.e., constant in space) time step At = (CFL)At c/7 , where At cf , is the 

minimum of the allowable time steps at each grid point based on the CFL cri- 
teria for explicit methods. 


In AQ max , the total energy £Y has been divided by Et, — PrR T,j(y r — 1) + Prufl 2 so that it is the same order of 
magnitude as the other conservation variables. 
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2 for a global time step initially computed using the IDTAU = 1 option, but ad- 
justed as the solution proceeds based on AQ„,„, the absolute value of the 
maximum change in the dependent variables. 10 For any of the dependent vari- 
ables, if AQ„„<CHG1, the CFL number is multiplied by DTF1. If 
AQ„„ > CHG2, the CFL number is divided by DTF2. If AQ max >0.15, the 
CFL number is cut in half. The CFL number will not be decreased below 
CFLMIN, or increased above CFLMAX. 

3 for a global time step At equal to the specified input DT. 

4 for a global time step initially equal to the specified input DT, but adjusted as 
the solution proceeds based on AQ m „, the absolute value of the maximum 
change in the dependent variables. 10 For any of the dependent variables, if 
AQ_ < CHG1, At is multiplied by DTF1. If AQ m „ > CHG2, At is divided 
by DTF2. If AQ max >0.15, At is cut in half. At will not be decreased below 
DTMIN, or increased above DTMAX. 

5 for a local (i.e., varying in space) time step At = (CFL)At c/7 , where At cft is the 
allowable time step at each grid point based on the CFL criteria for explicit 
methods. 

6 for a local time step initially computed using the IDTAU = 5 option, but ad- 

justed as the solution proceeds based on AQ„„, the absolute value of the 
maximum change in the dependent variables. 10 For any of the dependent vari- 
ables, if < CHG1, the CFL number is multiplied by DTFI. If 

AQ„ flI > CHG2, the CFL number is divided by DTF2. If AQ m „ >0.15, the 
CFL number is cut in half. The CFL number will not be decreased below 
CFLMIN, or increased above CFLMAX. 

7 for a global time step with cycling. At will be cycled repeatedly between 
DTMIN and DTMAX using a logarithmic progression over NDTCYC time 
steps. For some problems this option has been shown to dramatically speed 
convergence. However, the choice of DTMIN, DTMAX, and NDTCYC is 
critical, and no method has been developed that assures a good choice. Poor 
choices may even slow down convergence, so this option should be used with 
caution. 

8 for a local time step computed using the procedure of Knight and Choi (1989). 

With this option, At = max[AT 0 , (At cy7 ) { ], where 

At 0 = (CFL) min[(AT^) { , (At c/! )„]. The parameters (At c/7 ) 4 and (At c „), are the 
allowable time steps at each grid point based on the CFL criteria for explicit 
methods, computed separately for each computational coordinate direction. 
This formulation assumes that flow is generally in the £ direction. 

9 for a local time step computed as in the IDTAU = 8 option, but with a viscous 
correction added to the definitions of (At c/7 ) { and (At c/7 ),, similar to that used 
by Cooper (1987). 

If IDTAU = 7, ICHECK and IDTMOD are both automatically set equal to 1, and 

NITAVG is set equal to NDTCYC. In addition, if IDTAU = 7 and 

ICTEST = 1, ICTEST is changed to 2. If IDTAU = 2, 4, or 6, IDTMOD is au- 
tomatically set equal to ICHECK. The default value is 5. 

The above parameters IDTAU and IDTMOD apply to every case. Which of the remaining parameters 
are needed depends on the value of IDTAU, as specified in the following table. 
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IDTAU Parameters Needed 


1 CFL 

2 CFL, CHG1, CHG2, DTF1, DTF2, CFLMIN, CFLMAX 

3 DT 

4 DT, CHG1, CHG2, DTF1, DTF2, DTMIN, DTMAX 

5 CFL 

6 CFL, CHG1, CHG2, DTF1, DTF2, CFLMIN, CFLMAX 

7 DTMIN, DTMAX, NDTCYC 

8 CFL 

9 CFL 


CFL 


DT 

CHG1 

CHG2 

DTF1 

DTF2 

CFLMIN 

CFLMAX 

DTMIN 

DTMAX 


An array, given as CFL(ITSEQ), specifying the ratio At/A t*, where At is the ac- 
tual time step used in the implicit calculation and At cfl is the allowable time step 
based on the CFL criteria for explicit methods. The subscript ITSEQ is the se- 
quence number. For time steps 1 through NTIME(l), CFL(l) will be used. Then 
for steps NTIME(l) + 1 through NTIME(I) + NTIME(2), CFL(2) wlU be used 
etc. 11 CFL is only used if IDTAU = 1, 2, 5, 6, 8, or 9. The default values are all 

1.0. 

An array, given as DT(ITSEQ), specifying the time step 

ITSEQ is the sequence number. For time steps 1 through NTIME(l), D I (1) wdl 
be used. Then for steps NTIME(l) + 1 through NTIME(l) + NTIME(2), DT(2) 
will be used, etc. 12 DT is only used if IDTAU = 3 or 4. The default values are all 

0 . 01 . 


Minim um change, in absolute value, that is allowed in any dependent variable 
before increasing At. CHG1 is only used if IDTAU = 2, 4, or 6. The default value 
is 0.04. 


Maximum change, in absolute value, that is allowed in any dependent variable 
before decreasing At. CHG2 is only used if IDTAU = 2, 4, or 6. The default value 
is 0.06, 

Factor by which At is multiplied if the solution changes too slowly. DTF1 is only 
used if IDTAU = 2, 4, or 6. The default value is 1.25. 

Factor by which At is divided if the solution changes too quickly. DTF2 is only 
used if IDTAU = 2, 4, or 6. The default value is 1.25. 

Minimum value that the CFL number is allowed to reach. CFLMIN is only used 
if IDTAU = 2 or 6. The default value is 0.5. 

Maximum value that the CFL number is allowed to reach. CFLMAX is only used 
if IDTAU = 2 or 6. The default value is 10.0. 


Minimum value that At is allowed to reach (IDTAU — 4), or the minimum At in 
the time step cycling procedure (IDTAU = 7.) The default value is 0.1. 


Maximum value that At is allowed to reach (IDTAU = 4), or the maximum At 
in the time step cycling procedure (IDTAU = 7.) The default value is 0.1. 


n N ote ^at if IDTAU = 2 or 6, CFL(l) only sets At for the first time step, and that the time step sequencing option 
does not apply. 

12 \ote that if IDTAU = 4, DT(1) only sets At for the first time step, and that the time step sequencing option does 
not apply. 
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NDTCYC Number of time steps per time step cycle. NDTCYC is used only with 
IDTAU = 7. The default value is 2, which results in a constant At if 
DTMIN = DTMAX. 

Time Marching Limits 

These parameters determine the maximum number of time steps that will be taken. 

NTSEQ The number of time step sequences being used. The maximum value allowed is 

the value of the dimensioning parameter NTSEQP. If NTSEQ > 1, IDTAU must 
be equal to 1, 3, or 5. (See Section 6.2.) The default value is 1. 

NTIME An array, given as NTIME(ITSEQ), specifying the maximum number of time 

steps to march. The subscript ITSEQ varies from 1 to NTSEQ, and allows a series 
of different time steps to be specified by the values of CFL or DT. 
NTIME(ITSEQ) specifies the number of time steps within sequence ITSEQ. If 
NTSEQ = 3, for example, the total number of time steps taken will be 
N, 0 , s i= NTIME(l) + NTIME(2) + NTIME(3). The initial time level is level 1, 
and the final computed time level will be level N !c!al + 1. The default values are 
10, 9*0. 

TLIM When the amount of CPU time remaining for the job drops below TLIM seconds, 

the calculation is stopped. The default value is 20.0. 


Convergence Testing Parameters 


These parameters determine the convergence criteria to be used. 

ICHECK Results are checked for convergence every ICHECK'th time level. The default 
value is 10. 


ICTEST 


EPS 


1 to determine convergence based on the maximum change in absolute value of 
each of the conservation variables over a single time step, AQ„„. 13 

2 to determine convergence based on the maximum change in absolute value of 
each of the conservation variables, averaged over the last NITAVG time steps, 
AQ^. 13 

3 to determine convergence based on Rl 2 , the La norm of the residual for each 
equation. 

4 to determine convergence based on R 0 » x , the average absolute value of the resi- 
dual for each equation. 

5 to determine convergence based on R m „, the maximum absolute value of the 
residual for each equation. 

Convergence is assumed when the maximum change or residual parameter is less 
than EPS. Note that the change in conservation variables over a time step is di- 
rectly related to the size of the time step. Small time steps naturally yield small 
changes in conservation variables. With ICTEST = 1 or 2, therefore, convergence 
may be indicated prematurely. 

If ICTEST = 2, ICHECK and IDTMOD are automatically set equal to 1. The 
default value is 3. 

Level of convergence to be reached, specified as EPS(IVAR) where IVAR varies 
from 1 to NEQ, corresponding to each conservation variable or equation. The 
default values are all 0.001. 


* 3 The total energy £> is divided by E Tr = p,R T r Ry, - 1) + ppLRl before testing for convergence, so that it is the same 
order of magnitude as the other conservation variables. 
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NITAVG 


Number of time steps over which the maximum change in conservation variables 
is averaged to determine convergence. The maximum value allowed is the value 
of the dimensioning parameter NAMAX. (See Section 6.2.) NITAVG only ap- 
plies to the ICTEST = 2 option. The default value is 10. 

3.1.10 Namelist TURB 

Control Parameters 

The following parameters determine the type of turbulence model that will be used, and where it will 
be applied. These parameters apply to both the Baldwin-Lomax algebraic model and the Chien two- 
equation model. 

ITURB 0 for laminar flow. 

1 for turbulent flow, using the algebraic eddy viscosity model of Baldwin and 
Lomax (1978), as described in Section 9.0 of Volume 1. 

20 for turbulent flow, using the two-equation k-t model of Chien (1982), as de- 
scribed in Section 9.0 of Volume 1. 

The default value is 0. 

PRT If PRT > 0.0, it specifies the turbulent Prandtl number, which will be treated as 

constant. If PRT < 0.0, the turbulent Prandtl number will vary, and be computed 
using the empirical formula of Wassel and Catton (1973). The default value is 
0.91. 

LWALL1 A two-dimensional array, given as LWALLl(I2,IBOUND), specifying which 
points on the £ boundaries are on a solid wall. Here 12 = 1 to N2 corresponding 
to each grid point on the boundary, and IBOUND = 1 or 2, corresponding to the 
£ = 0 and £ = 1 boundaries, respectively. Valid values of LWALL1(I2, IBOUND) 
are: 

0 if the 12 point on boundary IBOUND is not on a solid wall. 

1 if the 12 j/oint on boundary IBOUND is on a solid wall. 

If LWALL1 is not specified, wall points on the £ boundaries are identified by 
looking for points with zero velocity. Therefore, LWALL1 need only be specified 
for cases with non-zero velocity at the wall (e.g., a moving wall, bleed, blowing, 
etc.). LWALL1 is not needed if the boundary condition for boundary IBOUND 
is set using the KBC 1 (IBOUND) meta flag. The default values are all 0. 

LWALL2 A two-dimensional array, given as LWALL2(I1, IBOUND), specifying which 
points on the >7 boundaries are on a solid wall. Here II = 1 to N1 corresponding 
to each grid point on the boundary, and IBOUND = 1 or 2, corresponding to the 
>7 = 0 and >7 = 1 boundaries, respectively. Valid values of LWALL2(I1, IBOUND) 
are: 

0 if the II point on boundary IBOUND is not on a solid wall. 

1 if the II point on boundary IBOUND is on a solid wall. 

If LWALL2 is not specified, wall points on the >7 boundaries are identified by 
looking for points with zero velocity. Therefore, LWALL2 need only be specified 
for cases with non-zero velocity at the wall (e.g., a moving wall, bleed, blowing, 
etc.). LWALL2 is not needed if the boundary condition for boundary IBOUND 
is set using the KBC2(IBOUND) meta flag. The default values are all 0. 
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IWALL1 A 2-element array, specified as IWALLl(IBOUND), specifying which f bounda- 
ries are solid walls. 14 The subscript IBOUND = 1 or 2, corresponding to the 
£ = 0 and £ = 1 boundaries, respectively. Valid values of IWALLl(IBOUND) are: 

0 if the boundary is not a solid wall. 

1 if the boundary is a solid wall. 

IWALL1 (IBOUND) is not needed if the boundary' condition for boundary 
IBOUND is set using the KBCl(IBOUND) meta flag. The default values are both 
- 1 . 

IWALL2 A 2-element array, specified as IWALL2(IBOUND), specifying which rj bounda- 
ries are solid walls. The subscript IBOUND = 1 or 2, corresponding to the rj = 0 
and t] — 1 boundaries, respectively. Valid values of IWALL2(IBOUND) are: 

0 if the boundary is not a solid wall. 

1 if the boundary is a solid wall. 

IWALL2(IBOUND) is not needed if the boundary condition for boundary 
IBOUND is set using the KBC2(IBOUND) meta flag. The default values are both 
- 1 . 

Baldwin- Lomax Turbulence Model_ Parameters 

These parameters apply only to the Baldwin- Lomax algebraic eddy viscosity model. Note, however, 
that they are used when the Baldwin- Lomax model is used to generate initial turbulent viscosity values for 
the Chien k-z model (i.e., when IREST = 0, 1, or 3.) 

The following two parameters specify which directions are important in computing the turbulent 
viscosity coefficient. 

ITX1 0 to bypass computation of turbulent viscosity on lines in the £ direction. 

1 to compute turbulent viscosity on lines in the £ direction (i.e., due to walls at 
rj = 0 and/or rj = 1, or due to a free turbulent flow in the t, direction.) 

If ITHIN(l) = 1, ITXI is automatically set equal to 1. The default value is 1. 

ITETA 0 to bypass computation of turbulent viscosity on lines in the tj direction. 

1 to compute turbulent viscosity on lines in the rj direction (i.e., due to walls at 
£ = 0 and/or £ = 1, or due to a free turbulent flow in the r\ direction.) 

If ITHIN(2) = 1, ITETA is automatically set equal to 1. The default value is 0. 

The following two options may be used to modify the Baldwin- Lomax model. 

INNER 1 to use the inner layer model* of Baldwin and Lomax (1978). 

2 to use the inner layer model of Spalding (1961) and Kleinstein (1967). 

The default value is 1. 

ILDAMP 0 to use the normal Baldwin-Lomax mixing length formula in the inner region. 

1 to use the modified mixing length formula of Launder and Priddin ( 1973) in the 
inner region of the Baldwin-Lomax model. 

14 The IWALL parameters have been superseded by the LWALL parameters. However, for compatibility with 
previous versions of Proteus , the IWALL parameters have been left in, and if set equal to 0 or 1 will override the 
corresponding LWALL values. 
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The default value is 0. 

The following two parameters are used in the laminar-turbulent transition model of Cebeci and 
Bradshaw (1984). 

REXT1 The Reynolds number at the beginning of the transition region. This parameter 

only applies to cases with flow predominantly in the { direction, and with a leading 
edge at c = 0. The Reynolds number is based on maximum total velocity and 
distance from £ = 0. The default value is 0.0. 

REXT2 The Reynolds number at the beginning of the transition region. This parameter 

only applies to cases with flow predominantly in the direction, and with a leading 
edge at rj = 0. The Reynolds number is based on maximum total velocity and 
distance from rj — 0. The default value is 0.0. 

The following parameters are various constants used in the Baldwin- Lomax model. 

CCLAU The Clauser constant K used in the Baldwin-Lomax outer region model. The de- 

fault value is 0.0168. 

CCP The constant C cp used in the Baldwin-Lomax outer region model. The default 

value is 1.6. 

CWK The constant C wk used in the formula for F wake in the Baldwin-Lomax outer region 

model. The default value is 0.25. 

CKLEB The constant C K ub used in the formula for the Klebanoff intermittency factor F Kl€b 

in the Baldwin-Lomax outer region model. The default value is 0.3, 

CKMIN The constant {C Kleb ) mui used in the formula for the Klebanoff intermittency factor 

F K ieb in the Baldwin-Lomax outer region model. The default value is normally 0.0. 
However, when the Baldwin-Lomax model is being used to generate initial turbu- 
lent viscosity values for the Chien k-z model (ITURB = 20 and IREST = 0, 1, or 
3), the defai H value is 0.1. 


APLIJS The Van Ehiest damping constant A + used in the Baldwin-Lomax outer and inner 

region models. The default value is 26.0. 

CB The constant B used in the formula for the Klebanoff intermittency factor F Kleb in 

the Baldwin-Lomax outer region model, and in the Spalding-Kleinstein inner re- 
gion model. The default value is 5.5. 

CVK The Von K arm an mixing length constant k used in both the Baldwin-Lomax and 

Spalding-Kleinstein inner region models. The default value is 0.4. 

CNL The exponent n in the Launder- Priddin modified mixing length formula. The de- 

fault value is 1.7. 

CNA The exponent n in the formula used to average the two outer region \i t profiles that 

result when both boundaries in a coordinate direction are solid surfaces. The de- 
fault value is 2.0. 


Chien Turbulence Model Parameters 

These parameters apply only to the Chien k-z model. The following two parameters specify the time 
step size for the k-z equations. 
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NTKE Number of k-z time iterations per mean flow time iteration. Note that this must 

be an integer equal to or greater than 1. Past experience indicates that this value 
should generally be less than 50. The default value is 1. 

TFACT Factor used in computing the k-z time step. Note that this can be any real positive 

number. The time step size for the k-z equations will be equal to 
At*., = TFACT(At), where At is the time step size for the mean flow equations. 
For equal k-z and mean flow time steps, use TFACT = 1/NTKE. The default 
value is 1 .0. 


The following parameters are various constants used in the Chien k-z model. 

CMUR Constant C Ur used to compute C„ in the turbulent viscosity formula for the k-z 

equations. The default value is 0.09. 

CONE Constant C t used in the production term of the z equation. The default value is 


CTHREE 

CTWOR 

SIGE 

SIGK 


1.35. 

Constant C 3 used to compute C„ in the turbulent viscosity formula for the k-z 
equations. The default value is 0.0115. 

Constant C 2 , used to compute C 2 in the dissipation term of the z equation. The 
default value is 1.8. 

The constant a, used in the diffusion term of the z equation. The default value is 
1.3. 

The constant a k used in the diffusion term of the k equation. The default value is 

1 . 0 . 


3.1.11 Namelist IC 

This namelist is used in subroutine INIT to read in parameters needed in setting up the initial conditions 
for the mean flow. The version of INIT built into Proteus specifies uniform flow with constant properties 
everywhere in the flow field. In general, however, the user will supply a version of INIT tailored to the 
problem being solved. This namelist, the;:, may be modified by the user to read in parameters different from 
those listed here. 


P0 Initial static pressure />o. The default value is 1.0. 

TO Initial static temperature To. The default value is 1.0. 

UO Initial x-direction velocity uq. The default value is 0.0. 

VO Initial y-direction velocity v 0 . The default value is 0.0. 

W0 Initial swirl velocity w 0 . The default value is 0.0. 


3.2 COORDINATE SYSTEM FILE 


The type of computational coordinate system to be used is controlled by the input parameter NGEOM 
in namelist GMTRY. For NGEOM = 10, the coordinate system is read from a pre-stored file. This file 
may be created by any body-fitted coordinate system generator available to the user. The coordinates may 
be nonorthogonal. 

The metric coefficients and Jacobian describing the nonorthogonal grid transformation are computed 
internally by Proteus. This calculation involves numerically computing first derivatives of the user-specified 
coordinates. Since Proteus solves the Navier- Stokes equations in fully conservative form, the metric coef- 
ficients themselves are factors in terms whose first and second derivatives are also computed numerically. 
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In effect, then, third derivatives of the user-specified coordinates are used in the solution. Care should 
therefore be taken in ensuring that these coordinates are smooth. No coordinate smoothing is done by 
Proteus itself. 

The Cartesian (xji) or cylindrical (x,r) coordinates describing the computational coordinate system are 
read from an unformatted file as follows: 


read (ngrid) 
read Cngrid) 

$ 


ngl ,ngZ 

((xc( jl, j2), jl=l,ngl), j2=l,ng2) , 
CCycC jl, j2), jl=l,ngl), j2=l,ng2) 


The parameters read from the file are defined as follows: 

NGl Number of points in the £ direction. The maximum value allowed is the value of 

the dimensioning parameter NIP. (See Section 6.2.) 

NG2 Number of points in the »j direction. The maximum value allowed is the value of 

the dimensioning parameter N2P. (See Section 6.2.) 


XC Cartesian or cylindrical x-coordinate. 


YC Cartesian or cylindrical y or r-coordinate. 


Note that the number of points NG1 and NG2 used to specify the computational coordinate system 
need not be the same as the number of points N1 and N2 used in the computational mesh. The coordinates 
of the points in the computational mesh, which is the mesh used in the Proteus solution, will be found by 
interpolation among the points in the computational coordinate system. 
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TABLE 3-1. - NORMALIZING CONDITIONS 


Variable 

Normalizing Value 

Length 


Velocity 

Un=U f 

Temperature 

T n = T r 

Density 

Pn = Pr 

Viscosity 

Pn = Pr 

Thermal conductivity 

K = K 

Pressure 

Pn = prU? 

Energy per unit volume 

e„ - pAt 

Gas constant 

R, = ^IT, 

Specific heat 

Cpn = U?I T ' 

Enthalpy 

K = 

Time 

In — Lr/Ur 

Turbulent kinetic energy 

h>=it 

Turbulent dissipation rate 

= Prl4IPr 


TABLE 3-2. - REFERENCE CONDITIONS 


Variable 

Reference Value 

Length 

L r 

Velocity 

Ur 

Temperature 

T r 

Density 

Pr 

Viscosity 

Pr 

Thermal conductivity 

K 

Pressure 

Pr = P,R Trjgc 

Energy per unit volume 

e, = pAt 

Enthalpy 

it 

Specific heat 

ifITr 

Time 

Lrjlir 

Turbulent kinetic energy 

it 

Turbulent dissipation rate 

P At l Pr 


40 
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TABLE 3-3. - OUTPUT VARIABLES 


IVOUT 

VARIABLE 

DEFINITION 

Velocities 

i 

^-velocity 

U 

2 

y or r- velocity 

V 

3 

Swirl velocity 

w 

4 

Mach number 

M |K| 
M - a 

5 

Speed of sound 

a = JyRT 

6 

Contravariant velocity 
normal to £ surface 

(t t +«s x +ve,)i{sl+z}) 112 

7 

Contravariant velocity 
normal to r\ surface 

(»?/ + u >1x + + V> 1/2 

8 



9 

Total velocity magnitude 

I v\ = (u 2 + V 2 + w 2 ) 1/2 

10 

^-momentum 

pu 

11 

y or r-momentum 

pv 

12 

Swirl momentum 

pw 

13 

<!; -velocity 

y t = In,"- Ini'll + vl 1/: 

14 

> 7 -velocity 


15 

Not used 


16 

Flow angle a,, deg. 

tan-'i 

17 

Flow angle a wi deg. 


Densities 

20 

Static density 

P 

/ , \ i l(y- 1) 

Pt =p( l+^A/ 2 ) 

21 

Total density 
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rvouT 


VARIABLE 


DEFINITION 


Static pressure 
Total pressure 

Static pressure coefficient 

Total pressure coefficient 
Pitot pressure 


Dynamic pressure 


Pressures 


P 


p T = p{ 1 + 


— 


v/(y- i) 


P-Pr 

Cp 2 

prfll&c 

Pt~p T ' 

° Pt ~ Pr u?l2g c 
P p =Pt 




y!<y- 1 ) 


y + 1 y + 1 


1 / 2 . 2 . _ 2 \ PM 

-p(u + v +W ) T -=- 


- i/(y- i) 


if M> 1 


Temperatures 


40 

Static temperature 

41 

Total temperature 



Energies 


50 

51 

52 

53 

Total energy per unit volume 
Total energy 
Internal energy 
Kinetic energy 

E r 

p 

e i = CyT 

e k = -j( u2 + v2 + w2 ) 


Enthalpies 

60 

Static enthalpy 

h = c p T 

61 

Total enthalpy 

h T = c pT T 
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IVOUT 


VARIABLE 


DEFINITION 


Vorticities 


70 

71 

72 

73 

x-vorticity 
y or r-vorticity 
z or 0-vorticity 
Total vorticity magnitude 

Q x = ^ + -j- if axisymmetric^ 

a =-d*L 

y dx 

n dv du 

z ~ dx dy 

|o| =(QL 2 x +sij + n]y 12 


Entropies 


Entropy 



Temperature- Dependent Parameters 

90 

Laminar viscosity coefficient 

M - v-t 

91 

Laminar second coefficient of 

, 2 M/ 


viscosity 

lt ~~ 3 

92 

Laminar thermal conductivity 
coefficient 

1 

II 

93 

Specific heat at constant 
pressure 

c /> 

94 

Specific heat at constant vol- 
ume 

Cy 

95 

Ratio of specific heats 

II 


Proteus 2-D User's Guide 


3.0 Input Description 43 









ivout 

VARIABLE 

DEFINITION 

Turbulence Parameters 

100 

Turbulent viscosity coeffi- 
cient 

Mr 

101 

Turbulent second coefficient 
of viscosity 

1 

II 

102 

Turbulent thermal 
conductivity coefficient 

1 

' Pr t K 

103 

Effective viscosity coefficient 

M 

104 

Effective second coefficient 
of viscosity 

X 

105 

Effective thermal 
conductivity coefficient 

k 

106 

Turbulent kinetic energy 

k 

107 

Turbulent dissipation rate 

t 

108 

Inner region coordinate 

+ PMX U ^n jy 

y - ** 

109 

Inner region velocity 


Gradients 

m 

Shear stress 

Tzx 

Shear stress 

Tyy Or ? rr 

122 

Shear stress 

Tee 

123 

Shear stress 

Txy Or T xr 

124 

Shear stress 

Tx6 

125 

Shear stress 

Tr 0 

126 

Heat flux 

4* 

127 

Heat flux 

<?> or q. 
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IVOUT 

VARIABLE 

DEFINITION 

Coordinates 

200 

Cartesian x-coordinate 

X 

201 

Cartesian or cylindrical y or 
r-coordinate 

y or r 

202 

Not used 


203 

Local Ax 

<3 

1 

204 

Local Ay 


205 

Not used 


206 

Local cell Reynolds number 
Re c 

P |F|[(Ax) 2 + (Ay) 2 ] ,/2 
Re r M 

207 

Local x-direction cell 
Reynolds number ( Re c ) x 

PlwlAx 

^ e r pi 

208 

Local ^-direction cell 
Reynolds number ( Re c ) y 

p|v|Aj; 

209 

Not used 


Metric Parameters 

210 

Inverse of the grid transfor- 
mation Jacobian 

/ - 1 

211 

Metric coefficient 


212 

Metric coefficient 


213 

Metric coefficient 


214 

Not used 


215 

Metric coefficient 

*lt 

216 

Metric coefficient 

Vx 

217 

Metric coefficient 

yjy 

218 

Not used 


219 

Not used 


220 

Not used 


221 

Not used 


222 

Not used 
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IVOUT 


VARIABLE 


DEFINITION 



230 

Time step size 

231 

Time 

232 

Local CFL number 

233 

Local £ -direction CFL num- 
ber 

234 

Local ^-direction CFL num- 
ber 

235 

Not used 


l^+u^ + v^l I f], + t*1x + I 


Jl.Il 
a ( Ar; 


+ ( _Il + _2l 

l a| + a n 


\t t +ue x +vs y \ (d +$ 1/2 

A£ +a A{ 

ln, + wix + ^iyl (nx + ^) ,/2 
: — +a m 


TABLE 3-4. - EQUATIONS SOLVED 


IHSTAG 

ISWIRL 

NEQ 

Order of Equations 

Order of 

Dependent Variables 

0 

0 

4 

Continuity, x-momentum, 
y or r-momentum, energy 

p, pu, pv, Et 

1 

0 

3 

Continuity, x-momentum, 
y or r-momentum 

P, pUy PV 

1 

1 

4 

Continuity, x-momentum, 
y or r-momentum, swirl momentum 

P, PUy PV, PW 

0 

1 

5 

Continuity, x-momentum, 

y or r-momentum, swirl momentum, 

energy 

p, pu, pv, pw, E r 
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TABLE 3-5. - BOUNDARY TYPES 


KBC 

VALUE 1 

BOUNDARY TYPE 

JBC 

VALUES SET 

EQUATIONS 

+ 1 

No-slip adiabatic wall 

11, 21, 31, ±43, 

u = v = w = 0, dpjdn = dT\dn — 0 


±53 


±2 

No-slip wall, specified tem- 

11, 21, 31, ±43, 

u = v = w = 0, dpjdn — 0, A T = 0 


perature 

50 


±3 

Inviscid wall 

+ 33, + 43, ± 53, 

dwjdn = dpjdn = dTjdn = 0, 


71, 79 

V n = 0, d 2 V;jd<j> 2 = 0 

10 

Subsonic inflow, linear ex- 

14, 24, 34, 46, 56 

d 2 ujd<j> 2 = d 2 vjd<j> 2 = d 2 wjd<f> 2 = 0, 


trapolation 


o 

II 

£ 

<3 

II 

£ 

+ 11 

Subsonic inflow, zero gradi- 

+ 12, +22, +32, 

dujdcf> = dvjd<j> = dwjd<f> — 0, 


ent 

46, 56 

\p T = A7Y= 0 

20 

Subsonic outflow, linear ex- 

14, 24, 34, 40, 54 

d 2 ujd<t> 2 = d 2 vjd4> 2 = d 2 wjd<}> 2 - 0, 


trapolation 


Ap = 0, d 2 Tjd<j> 2 = 0 

±21 

Subsonic outflow, zero gradi- 

+ 12, ± 22, ± 32, 

dujd<j> = dvjd<j> = dwjd<t> = 0, 


ent 

40, ±52 

A p = 0, dTjd<j> = 0 

30 

Supersonic inflow 

10, 20, 30, 40, 50 

> 

c 

II 

* 

II 

> 

11 

£ 

II 

> 

II 

o 

40 

Supersonic outflow, linear 

14, 24, 34, 44, 54 

d 2 u/d4> 2 = d 2 vjd<j> 2 = d 2 wjd<j> 2 = 0, 


extrapolation 


d 2 pjd<f> 2 = d 2 Tjd<j> 2 = 0 

±41 

Supersonic outflow, zero gra- 

+ 12, + 22, ± 32, 

dujd<f> = dvjd<f> = dwjd<j> = 0, 

dient 

±42, ±52 

dpjd<f> = dTjd<t> = 0 

±50 

Symmetry 

+ 33, ± 43, ± 53, 
71, ±78 

dwjdn = dpjdn = dTjdn = 0, 
V n = 0, dV t jdn = 0 

60 

Spatially periodic 


Qi = Qat, or Q) == Q* 2 


a Use the w +" sign for 2-point one-sided differencing of first derivatives, and the sign for 3-point differencing of 
first derivatives. 
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TABLE 3-6. - BOUNDARY CONDITION TYPES FOR MEAN FLOW 


jBc OR 

IBC EQUATION DESCRIPTION 

VALUE* 

Conservation Variable Boundary* Conditions 


0 

1 

+ 2 
+ 3 

4 

5 

6 

7 

8 
9 

AQ = 0 

Q=f 

3Qld<f> =/ 
dQjdn =f 
&Qld<t> 2 = 0 

No change from initial conditions. 
Specified conservation variable. 
Specified coordinate direction gradient. 
Specified normal direction gradient . 
Linear extrapolation. 

Not used. 

Not used. 

Not used. 

Not used. 

Not used. 

x-Velocity Boundary Conditions 

10 

Au = 0 

No change from initial conditions. 

11 

a-f 

Specified x-velocity. 

+ 12 

duld4> =f 

Specified coordinate direction gradient. 

+ 13 

du/dn =/ 

Specified normal direction gradient". 

14 

&uld<t> 2 = 0 

Linear extrapolation. 

15 


Not used. 

16 


Not used. 

17 


Not used. 

18 


Not used. 

19 


Not. used. 


y or r- Velocity Boundary Conditions 


20 

Av = 0 

No change from initial conditions. 

21 

v=/ 

Specified y or r- velocity. 

±22 

dvjd<f> =/ 

Specified coordinate direction gradient. 

+ 23 

dvldn =/ 

Specified normal direction gradient 6 . 

24 

&vld(f> 2 = 0 - 

Linear extrapolation. 

25 


Not used. 

26 


Not used. 

27 


Not used. 

28 


Not used. 

29 

tan - l (vju) = f 

Specified flow angle in degrees. 


Swirl Velocity Boundary Conditions 


30 

> 

II 

o 

No change from initial conditions. 

31 

w=f 

Specified swirl velocity. 

+ 32 

dwjdj =f 

Specified coordinate direction gradient. 

+ 33 

dwjdrt =f 

Specified normal direction gradient". 

34 

d 2 wjd4> 2 = 0 

Linear extrapolation. 

35 


Not used. 

• 36 


Not used. 

37 


Not used. 

38 


Not used. 

39 

tan - ‘(w/w) = / 

Specified flow angle in degrees. 
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1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 



40 

41 

42 

43 

44 

45 

46 

47 

48 

49 


DESCRIPTION 


Pressure Boundary Conditions 


Ap = 0 
P=f 
e P id4> =/ 

dpjdn =f 
d 2 pjd<j> 2 = 0 

Apr=0 

PT-f 


No change from initial conditions. 
Specified static pressure. 

Specified coordinate direction gradient. 
Specified normal direction gradient b . 
Linear extrapolation. 

Not used. 

No change from initial conditions. 
Specified total pressure. 

Not used. 

Not used. 


50 

51 

52 

53 

54 

55 

56 

57 

58 

59 


60 

61 

62 

63 

64 

65 

66 

67 

68 
69 


Temperature Boundary Conditions 

AT = 0 

T=f 

dTld<f> =/ 
dTIdn =/ 
d 2 Tld<t> 2 = 0 

A7Y=0 

Tr—f 

No change from initial conditions. 
Specified static temperature. 

Specified coordinate direction gradient. 
Specified normal direction gradient 5 . 
Linear extrapolation. 

Not used. 

No change from initial conditions. 
Specified total temperature. 

Not used. 

Not used. 

Density Boundary Conditions 

Ap = 0 
p =f 
dpjd<t> =f 
dpjdn =f 
Ppjdt 2 = 0 

No change from initial conditions. 
Specified static density. 

Specified coordinate direction gradient. 
Specified normal direction gradient 5 . 
Linear extrapolation. 

Not used. 

Not used. 

Not used. 

Not used. 

Not used. 


70 

71 

72 

73 

74 

75 

76 

77 

78 

79 


Normal c and Tangential Velocity Boundary Conditions 

^ II H J 1 ^ I' II J 1 

Not used. 

Specified normal velocity. 

Specified coordinate direction gradient. 
Specified normal direction gradient 5 . 
Linear extrapolation. 

Not used. 

Specified tangential velocity. 

Specified coordinate direction gradient. 
Specified normal direction gradient 5 . 
Linear extrapolation. 
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JBC OR 
IBC 

VALUE 1 

EQUATION 

DESCRIPTION 

User-Supplied Boundary Conditions 

90 

AF= 0 

No change from initial conditions. 

91 

F=f 

Specified function. 

+ 92 

3Fld4> =/ 

Specified coordinate direction gradient. 

±93 

dF/dn =/ 

Specified normal direction gradient. 

94 

&Fld<j> 1 = 0 

Linear extrapolation. 

95 


Not used. 

96 


Not used. 

97 


Not used. 

98 


Not used. 

99 


Not used. 


a Use the '+*' sign for 2-point one-sided differencing, and the ' r sign for 3-poinl one-sided differencing. 

b Normal derivatives are positive in the direction of increasing f or tj. 
c Normal velocity is positive in the direction of increasing { or rj. 
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TABLE 3-7. - BOUNDARY CONDITION TYPES FOR k-t EQUATIONS 



Turbulent Kinetic Energy Boundary Conditions 


0 Ak = 0 No change from initial conditions. 

1 k= f Specified turbulent kinetic energy. 

+ 2 dkjd4> = f Specified coordinate direction gradient. 

3 

4 ' d 2 kjd(f> 2 = 0 Linear extrapolation. 

5 

6 

7 

8 

9 I 

Turbulent Dissipation Rate Boundary Conditions 


10 

> 

cn 

II 

O 

11 

«-/ 

+ 12 

dtjd4> =f 

13 


14 

d 2 t/d<f> 2 = 0 

15 


16 


17 


18 


19 



No change from initial conditions. 
Specified turbulent dissipation rate. 
Specified coordinate direction gradient. 

Linear extrapolation. 


* Use the '+' sign for 2-point one-sided differencing, and the sign for 3-point one-sided differencing. 
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4.0 OUTPUT DESCRIPTION 


Several output files may be created during a Proteus run. The standard output is a formatted file written 
to Fortran unit NOUT that is intended for printing. Additional unformatted files may be written for use 
as input by various post-processing programs. Unformatted restart files may also be written for use as input 
for a subsequent Proteus run. 

4.1 STANDARD OUTPUT 

The standard Proteus output is a formatted file written to Fortran unit NOUT, and is intended for 
printing. Actual examples of typical standard output files are presented in Section 9.0. Unless specified 
otherwise, all of the output parameters in the standard output are nondimensional, with the appropriate 
reference condition from Table 3-2 as the nondimensionalizing factor. 

4. LI Title Page and Namelists 

The standard Proteus output begins with a title page, 15 which identifies the version of Proteus being run 
and lists the user- specified title for the run. This is followed by a printout of the contents of the input 
namelists RSTRT, 10, GMTRY, FLOW, BC, NUM, TIME, and TURB. Note that, for variables not 
specified by the user in the input namelists, the values in this printout will be the default values. 

4.1.2 Normalizing and Reference Conditions 

The dimensional values for the normalizing and reference conditions are printed on the next page, with 
the appropriate units as set by the input parameter IUNITS. The normalizing conditions are the parameters 
used to nondimension aliz e the governing equations. The reference conditions are used during input and 
output for nondimensionalization of various parameters and for specifying various flow conditions. The 
distinction between normalizing and reference conditions is described in greater detail in Section 3.1.1. They 
are listed in Tables 3-1 and 3-2. 

After the printout of the normalizing and reference parameters comes anything written to unit NOUT 
by the user-supplied subroutine INIT. For the default version of INIT supplied with Proteus , this consists 
only of the contents of namelist IC. 

4.1.3 Boundary Conditions 

The next page is a printout of the boundary conditions being used. The boundary condition parameters 
JBC and GBC are printed in a box-like manner, with the values for the £ = 0 and £ = 1 surfaces on the left 
and right, and the values for the rj = 0 and rj = 1 surfaces on the bottom and top. If the Chien two-equation 
turbulence model is being used, the boundary condition parameters for the k-t equations, JBCT and 
GBCT, are printed next, in the same box-like manner. If time-dependent boundaiy conditions are being 
used, this is followed by a listing of the input tables of GTBC vs. NTBCA. 

4.1.4 Computed Flow Field 

The bulk of the standard Proteus output consists of printout of the computed flow field. The input array 
IVOUT determines which variables are printed, as described in Section 3.1.4. The variables currently 
available for printing are listed and defined in Table 3-3. The printout for each variable at a given time level 
will begin on a separate page. The header for each variable will include the time level n , and, for global time 


15 In this discussion, when 'pages" of output are referred to it is assumed that the file is printed with Fortran carriage 
control in effect 
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steps (IDTAU =1-4, 7), the time t and time increment At in seconds. In the flow field printout, each 
column corresponds to a £ location, and each row to an y\ location. The columns and rows are numbered 
with the ^ and t] indices. 

Flow field results are printed at time levels and grid points specified by the user through parameters in 
namelist 10. Since this printout can be very lengthy, the user is encouraged to minimize the amount of 
printed output by making judicious use of these parameters. Usually, the computed results can be examined 
most efficiently using post-processing graphics routines like CONTOUR or PL0T3D. (See Section 4.2). 

After the final flow field printout, if the run ends normally a message is printed indicating whether or 
not the calculation converged. 

4.1.5 Boundary Parameters 


After each flow field printout, various parameters may be printed along the boundaries. The input ar- 
rays IWOUT1 and IWOUT2 determine whether or not these parameters are printed, as described in Section 
3.1.4. The parameters printed are defined below. Note that some of these are meaningful only if the 
boundary" is a solid wall. 

X, Y 

Cartesian coordinates x and y . 

P 

Static pressure p. 

CF 

Skin friction coefficient C/, defined as 


_ dV, 

p dn 2 dV t 

1 2 Re r P dn 

2 Pr “ r 


where the overbar denotes a dimensional quantity. In this equation dV,ldn 
represents the normal derivative of the tangential velocity. 

TAUW 

Shear stress t„, defined as 


= M dn 


t w is thus nondimensionalized by /w/L,. 

T 

Static temperature T. 

QW 

Heat flux q Wi defined as 


5P 

II 

1 

o>|cd 

* M 


In this equation dTjdn represents the normal derivative of the temperature. q w 
is thus nondimensionalized by k r T f \Lr. 

H 

Heat transfer coefficient h , defined as 


_ k M : 

. <7w dn 

T- 1 " T- 1 


h is thus nondimensionalized by k,lL,. 

ST 

Stanton number St, defined as 


p^Cp C P Re r Pr r 
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The boundary parameters are printed at the same time levels as the flow field printout, but at every point 
on the boundary’, not just those specified by the input parameters IPRT1 and IPRT2, or IPRTlA and 
IPRT2A. 

For this printout, normal derivatives are computed using a normal vector n directed into the flow; field. 
This means, for example, that the skin friction c, will be positive for attached flow, even on the upper 
boundary. 

4.1.6 Convergence History 

In evaluating the results of a steady Proteus calculation, it's important to consider the level of conver- 
gence. This may be done by examining one of the forms of the residual for each equation. The residual 
is simply the number resulting from evaluating the steady form of the equation at a specific grid point and 
time (or iteration) level. Ideally, the residuals would all approach zero at convergence. In practice, however, 
for Teal" problems they often drop to a certain level and then level off. Continuing the calculation beyond 
this point will not improve the results. 

A decrease in the L 2 norm of the residual of three orders of magnitude is sometimes considered sufficient. 
Convergence, however, is in the eye of the beholder. The amount of decrease in the residual necessary for 
convergence will vary from problem to problem. For some problems, it may even be more appropriate to 
measure convergence by some flow-related parameter, such as the lift coefficient for an airfoil. Determining 
when a solution is sufficiently converged is, in some respects, a skill best acquired through experience. 

At the end of a Proteus calculation, if first-order time differencing and steady boundary conditions were 
used, a summary of the convergence history is printed for each governing equation. 16 The parameters in this 
printout are defined as follows: 

LEVEL 
CHGMAX 


CHGAVG 


RESL2 


RESAVG 

RESMAX 

LRMAX 


Time level n. 

Maximum change in absolute value of the dependent variables from time level 
n — 1 to n. 11 

AQmax = max I A Q"7 1 I 

Maximum change in absolute value of the dependent variables, averaged over 
the last NITAVG time steps. 17 

AQav * = NITAVG 

m = NITAVG 

The Li norm of the residual at time level n. 

The average absolute value of the residual at time level n, R avs . 

The maximum absolute value of the residual at time level n, R max . 

The grid indices (i,j) corresponding to the location of R m «. 



16 Second-order time differencing should be used only for unsteady problems, for which 'convergence' has no 
meaning. It should also be noted that the computation of the residuals in the code is correct only for first-order 
time differencing. 

17 For the energy equation, the change in Ej is divided by Ef r = p r RT r j(y r — 1) + p r u}j2 t so that it is the same order 
of magnitude as the other conservation variables. 
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In computing the residuals, the summations, maximums, and averages are over all interior grid points, plus 
points on spatially periodic boundaries. 

To avoid undesirably long tables, the convergence parameters are printed at an interval that limits the 
printout to NHMAX time levels. NHMAX can be specified by the user in namelist 10. However, the 
residuals are always printed at the first two time levels. This is done because the residuals at time level 1 
(the initial condition level) may not be truly representative of the degree of convergence. For instance, if 
the initial conditions are zero velocity and constant pressure and temperature at every interior point, the 
computed residuals will be exactly zero. When the time marching procedure begins, however, the flow field 
will start developing in response to the boundary conditions, and the residuals will reach a maximum in the 
first few time steps. Note that, in the printout, CHGMAX will be zero until time level n = ICHECK. 
CHGAVG will only be computed when ICTEST = 2, and will be zero until time level n = NITAVG. 

As noted in Section 8.1 of Volume 1, adding artificial viscosity changes the original governing partial 
differential equations. For cases run with artificial viscosity, therefore, the residuals are printed both with 
and without the artificial viscosity terms included. This may provide some estimate of the overall error in 
the solution introduced by the artificial viscosity. Convergence is determined by the residuals with the ar- 
tificial viscosity terms included. 

4.1.7 Additional Output 

In addition to the output discussed above, various types of additional printout can be generated by the 
IDEBUG options, as discussed in Section 3.1.4. Various diagnostics may also appear in the standard out- 
put file. These are discussed in greater detail in Section 7.0. 

4.2 PLOT FILES 

The amount of flow field data generated by a Navier-Stokes code is normally much too large to effi- 
ciently comprehend by examining printed output. The computed results are therefore generally examined 
graphically using various post -processing plotting routines. These plotting routines require as input a file 
or files, generally called plot files, that are written by the flow solver and contain the coordinates and com- 
puted flow field data. 

Various types of unformatted plot files may be written by &Proteus, as controlled by the input param- 
eter IPLOT discussed in Section 3.1.4. These files are designed for use by either the CONTOUR or 
PLOT3D plotting programs. 18 

CONTOUR is a three-dimensional plotting program developed at NASA Lewis using internal Lewis- 
developed graphics routines. It currently can be used only at NASA Lewis on the Amdahl 5860 computer 
using the VM operating system, or from the Scientific VAX Cluster using the VMS operating system. 
Originally designed for use with three-dimensional Parabolized Navier-Stokes (PNS) codes, it can be used 
to generate various types of contour and velocity vector plots in computational planes. 

PLOT3D (Walatka, Buning, Pierce, and Elson, 1990) is a sophisticated three-dimensional plotting 
program specifically designed for displaying results of computational fluid dynamics analyses. It is widely 
used in government, industry, and universities for interactive visualization of complex flow field data gen- 
erated by CFD analyses. The computational grid is stored in one file, called an XYZ file, and the computed 
flow field is stored in another file, called a Q file. There are several options within PLOT3D concerning the 
format of these files. At NASA Lewis, PLOT3D is available on the Silicon Graphics IRIS workstations 
and on the Scientific VAX Cluster. 

It should be noted that, in Fortran, unformatted files are not generally transportable from computer to 
computer. If the plot files written by Proteus are to be used on some other computer (e.g., a graphics 
workstation), a separate conversion program will normally be required. 


18 If only the last computed time level is of interest, the restart files may also be used for plotting with PLOT3D. See 
Section 4.4. 
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4.2.1 CONTOUR Plot File (IPLOT = 11 


With the IPLOT = 1 option in Proteus, a plot file is generated for use by CONTOUR using the fol- 
lowing Fortran statements: 

write (nplot) title 

write C nplot) machr,rer,lr,ur,pr,tr,rhor,rg,ganr 
write Cnplot) level ,nl ,n2, isym, system 
do 10 il = l,nl . _ 

write Cnplot) C (f (ivar , il , i2) , ivar=l , 14) , i2-l , n2) 

10 continue 

All of the above WRITE statements are executed for each time level written into the file. The plot file thus 
consists of multiple sets of data, each containing the computed results at a single time level. Note that with 
this option, the value of the time t is not written into the file. 19 

Unless specified otherwise, all of the parameters written into the CONTOUR plot file are nondimen- 
sional, with the appropriate reference condition as the nondimensionalizing factor. The parameters are de- 
fined as follows: 


TITLE 

A descriptive title for the problem. 

MACHR 

Reference Mach number, M r = t/r/%/ y r R T, . This is a real variable. 

RER 

Reference Reynolds number, Re r = p r i^Lr//i,. 

LR 

Reference length Lr in feet (meters). This is a real variable. 

UR 

Reference velocity Ur in ft/sec (m/sec). 

PR 

Reference static pressure p r = p r RT r lg c in lb f /ft 2 (N/m 2 ). 

TR 

Reference temperature T r in °R (K). 

RHOR 

Reference density p r in lb m /ft 3 (kg/m 3 ). 

RG 

Gas constant R in ft 2 /sec 2 -°R (m 2 /$ec 2 -K). 

GAMR 

Reference ratio of specific heats, y r = CpJCv r 

LEVEL 

Time level n . 

N1 

Number of grid points N\ in the £ direction. 

N2 

Number of grid points N 2 in the r\ direction. 

ISYM 

A symmetry parameter used in CONTOUR, set equal to 1. 

SYSTEM 

A coordinate system parameter used in CONTOUR, set equal to 0 

F(l„) 

Set equal to 0. 

F(2„) 

Cartesian x coordinate. 

F(3„) 

Cartesian y coordinate or cylindrical r coordinate. 

F(4„) 

Set equal to 0. 

F(5„) 

Velocity in the £ direction, V K . 

F(6„) 

Velocity in the r\ direction, V r 

F(7„) 

Static pressure fi/p r . 

F(8„) 

Static temperature T. 


14 The IPLOT = - 1 option, discussed in the next section, is the better one to use for CONTOUR plot files. The 
IPLOT = 1 option is included only to be consistent with the various PLOT3D and PLOT2D options. 
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F(9„) 

Mach number M = Jit 2 + v 2 + w 2 jJyRT 

F(10„) 

x - velocity u. 

F(ll„) 

y or r- velocity v. 

F(12„) 

Swirl velocity w. 

F(13„) 

Static density p. 

F(14„) 

Total energy per unit volume £ r - 


4.2.2 CONTOUR Plot File flPLOT = - 1) 

The CONTOUR plot file generated using the IPLOT = - 1 option is essentially the same as the one 
discussed in the previous section. There are just two differences. First, the first two records, containing the 
title and the reference conditions, are written only once, at the beginning of the file, and not at each time 
level. And second, the time r i%J is written in the F(l f ) position. (The subscripts / andy represent grid point 
indices in the £ and >] directions.) 

As noted in the previous section, CONTOUR was originally designed for use with three-dimensional 
Parabolized Navier-Stokes codes. With PNS codes, the streamwise marching coordinate was written into 
the F(l,) position, and contours or velocity vectors could be plotted at different streamwise stations. 

With the IPLOT = - 1 option in Proteus , the resulting CONTOUR plot file is analogous to the one 
produced for PNS codes, but with the streamwise marching coordinate replaced by the time. Contours and 
velocity vectors can thus be easily plotted at different time levels. 

4.2.3 PLOT3DAVHOLE Plot Files (IPLOT = 2) 

With the IPLOT = 2 option in Proteus , the XYZ and Q files are written in PLOT3D/WHOLE format. 
With this option, the XYZ file is written using the following Fortran statements: 

write Cnplotx) nl,n2,n3 

write (nplotx) C (xCil , i2) , il=l , nl ) , i2=l ,n2 ) 9 
$ C CyCil , i2) , 11 = 1 ,nl ) , 12=1 ,n2 ) , 

$ CCzdum , il=l *nl ) , 12=1 ,n2) 

The Q file is written using the following Fortran statements: 

write Cnplot) nl,n2,n3 

write ( nplot ) machr ,aoa, rer , tauCl ,1) 

write Cnplot) ( C (qplot Cil / 12, ivar) , il=l , nl ) , i2=l ,n2) , ivar-1 , 5) 

The above WRITE statements for the Q file are executed for each time level written into the file. The Q 
file thus consists of multiple sets of data, each containing the computed results at a single time level. The 
XYZ file is written only once. 20 

The parameters written into the file are defined as follows: 

Number of grid points in the £ direction. 

Number of grid points A 2 in the rj direction. 

In PLOT3D, the number of grid points in the C direction. Set equal to 1 for 
2-D Proteus . 

X Cartesian jc coordinate. 

Y Cartesian^ coordinate or cylindrical r coordinate. 


Nl 
' N2 
N3 


20 The current version of PLOT3D does not work for multiple time levels, although future versions might. You can, 
however, fake it out using the IPLOT = - 3 option described in Section 4.2.5. 
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ZDUM 

In PLOT3D, the Cartesian z coordinate. Set equal to 0. in 2-D Proteus. 

MACHR 

Reference Mach number, M r — Url\J y r R T r . This is a real variable. 

AOA 

In PLOT3D, the angle of attack. Set equal to 0. in Proteus. 

RER 

Reference Reynolds number, Re r = pMrL T lfi r . 

TAU(1,1) 

The time t m . 21 

QP.LOT(„l) 

Static density p. 

QPLOT(„2) 

x-momentum puM r . 

QPLOT(„3) 

y or r-momentum pvM r . 

QPLOT(,,4) 

Swirl momentum pwM r - 

QPLOT(,,5) 

Total energy per unit volume EtM }. 


All of the parameters written into the XYZ and Q .files are nondimensional. However, PLOT3D as- 
sumes that velocity is nondimensionalized by the reference speed of sound a, = (y,R T-) 1 ' 2 , and that energy 
is nondimensionalized by p^}. In Proteus these variables are nondimensionalized by u r and p r Ur- That is 
why M r appears in the definitions of QPLOT(„2) through QPLOT(„5). 

4.2.4 PLOT3D /PLANES Plot Files (IPLOT = 31 

Since Proteus 2-D is two-dimensional, the IPLOT = 3 option creates XYZ and Q files identical to those 
created usin g the IPLOT = 2 option described in the previous section. 

4.2.5 PLOT3D /PLANES Plot Files (IPLOT = - 3) 

This option is similar to the IPLOT = 3 option, except that the time t is written into the z slot in the 
XYZ file. The XYZ file is written using the following Fortran statements: 

write Cnplotx) nl,n2,n3 
do 10 13 = 1/113 

write Cnplotx) CC x( il *12) *11-1 * nl ) * 12=1 *n2) * 

$ (( yCil *12) , 11 = 1 *nl ) ,12=1 *n2) * 

$ C(tauCil,i2),il=l,nl)*i2=l*n2) 

10 continue 


The Q file is written using: 


20 


write Cnplot) nl*n2*n3 

write Cnplot) machr *aoa* rer * tdum 

do 20 i3 = l*n3 

write Cnplot) C CCqplotCil *12*ivar) *il = l /nl) *i2=l *n2) * ivar-1 * 5) 
continue 


The parameters written into the file that have not yet been defined are: 


N3 Number of time levels written into the XYZ and Q files. 22 

TAU The time t„,. 

TDUM Set equal to 0. 


21 Note that with IDTAU = 5 or 6, t will vary in space, and therefore T 1>y + tij. 

22 Note that the number of time levels that end up bring written into the files is not known until the end of the 
Proteus run. Therefore, the results are actually written to a scratch file. At the end of the calculation, when N3 
is known, the scratch file is read and the XYZ and Q files are written. 
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Even though a time-dependent version of PL0T3D is not yet available, the IPLOT — — 3 option allows 
plots to be generated at different time levels by plotting at different PLOT3D V stations. 

4,2.6 PLOT2D Plot Files (IPLOT = 4) 

This option generates XYZ and Q files in PLOT3D's 2D format. The XYZ file is written using the 
following Fortran statements: 

write Cnplotx) nl ,n2 

write Cnplotx) C (x( il , i2) , il=l ,nl ) , i2=l ,n2) , 

$ C(y(il,i2),il=l,nl),i2=l,n2) 

The Q file is written using: 

write Cnplot) nl,n2 

write Cnplot) machr ,aoa , rer , tauC 1 ,1) 

write Cnplot) C((qplot(il,i2, ivar) ,11=1 ,nl) , i2=l ,n2) ,ivar=l ,4) 

As in the IPLOT = 2 option, the above WRITE statements for the Q file are executed for each time level 
written into the file. The Q file thus consists of multiple sets of data, each containing the computed results 
at a single time level. The XYZ file is written only once. 20 

All of the parameters written into the files are the same as previously defined, except: 

QPLOT(„4) Total energy per unit volume E r M ?. 

Note that with this option, the swirl momentum pw is not written into the Q file. 

4.3 CONVERGENCE HISTORY FILE 

In Section 4.1.6, the convergence history printout is described. The information in this printout is read 
from an unformatted convergence history file that is updated whenever convergence is checked during a 
Proteus calculation. Plotting routines are also available at NASA Lewis to plot any of the convergence 
parameters as a function of time level. 

The file is written in subroutine RESID using the following Fortran statements. At the first time step 
of the run, 


write Cnhist) nl ,n2,neq, idtau, ictest,nitavg,iswirl , ihstag, 
$ iav2e , iav4e , ur , lr , C epsC ieq) , ieq=l , neq) 


Then, at each time level that convergence is being checked, 

write Cnhist) it , tau( 1 , 1 ) , icheck 

write C nhist) ( chgmaxC ieq , 1 ) , chgavgC ieq) , resl2C ieq , 1 ) , 

$ resavgC ieq , 1 ) , resmaxC ieq, 1 ) , 

$ IrmaxC 1 , ieq , 1 ) , lrmax(2 ,ieq , 1 ) ,ieq=l,neq) 

Finally, again at each time level that convergence is being checked, but only for cases run with explicit ar- 
tificial viscosity, 


write (nhist) (chgmaxC ieq, 1) ,chgavg(ieq) ,resl2(ieq ,2) , 

$ resavg(ieq,2) ,resmax(ieq,2) , 

$ IrmaxC 1 ,ieq,2) , IrmaxC 2, ieq, 2) ,ieq=l ,neq) 

The parameters written into the file are defined as follows: 

Number of grid points A\ in the f direction. 

Number of grid points N 2 in the tj direction. 

The number of coupled governing equations N*, being solved. 


Nl 

N2 

NEQ 
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IDTAU 

Flag for time step selection method. 

ICTEST 

Flag for type of convergence test. 

NITAVG 

Number of time steps used in the moving average convergence 
test. 

ISWIRL 

Flag for swirl in axisymmetric flow. 

IHSTAG 

Flag for constant stagnation enthalpy option. 

LAV2E 

Flag for second-order explicit artificial viscosity. 

IAV4E 

Flag for fourth-order explicit artificial viscosity. 

UR 

Reference velocity u r . 

LR 

Reference length Lr * This is a real variable. 

EPS(IEQ) 

Value e used to determine convergence. 

IT 

Current time level n. 

TAU(1,1) 

Current value of the time marching parameter t m at £ = rj = 0. 

ICHECK 

Results are checked for convergence every ICHECK'th time level. 

CHGMAX(IEQ, 1) 

Absolute value of the maximum change in the dependent variables 
from time level n — 1 to n. 

CHGAVG(IEQ) 

Average of the absolute value of the maximum change in the de- 
pendent variables for the last NITAVG time steps. 

RESL2(IEQ,IAVR) 

The Li norm of the residual at time level n. 

RESAVG(IEQ,IAVR) 

The average absolute value of the residual at time level n. 

RESMAX(IEQ,IAVR) 

The maximum absolute value of the residual at time level n 

LRMAX(IDIR, IEQ, IAVR) 

The grid indices (i,f) corresponding to the location of R max > 


In the above definitions, the subscript IEQ — 1 to coiresponding to the governing equations, 
IAVR = 1 or 2, corresponding to residuals computed without and with the artificial viscosity terms, and 
IDIR = 1 or 2, corresponding to the £ and r\ directions. 

4.4 RESTART FILES 

It's often necessary or desirable to run a given case in a series of steps, stopping and restarting between 
each one. This may be done because of limitations in computer resources, or to change an input parameter. 
This capability is provided in Proteus through a restart option. With this option, the computational mesh 
and the computed flow field are written as unformatted output files at the end of one run, saved on a 
magnetic disk or tape, and read in as input files at the beginning of the next run. This process is controlled 
by the input parameters in namelist RSTRT. (See Section 3.1.3). 

The restart files are written and read in subroutine REST. The computational mesh is written using the 
following Fortran statements: 

n3 = 1 

write Cnrxout) nl,n2,n3 

write Cnrxout) (C x(il , i2) , il = l , nl ) , i2=l , n2) , 

$ (( y( il ,12) , il=l ,nl ) , i2=l ,n2) , 

$ ( CtauCil ,12) ,11=1 ,nl ) , i2=l ,n2) 

The computed flow field is written using: 
n3 = 1 

write Cnrqout) nl,n2,n3 

write Cnrqout) machr ,aoa , rer , tlevel 
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write (nrqout) 
if (iturb .gt. 

$ 

write (nrqout) 
if (iturb .gt. 

$ 


( ( (q (il ,i2, ivar) ,il = l ,nl) , 12=1 ,n2) , ivar=l , 5) 
19) write (nrqout) (((qt (il ,12,ivar ) , il = l , nl ) , 

i2=l ,n2) , ivar=l ,2) 

(((ql(il ,i2, ivar) ,il=l ,nl) , i2=l ,n2),ivar=l,5) 
19) write (nrqout) ( ( (qtl(il ,i2,ivar ) , il = l ,nl ) , 

i2=l,n2) , ivar=l >2) 


The parameters written into these files are defined as follows: 


Nl 

Number of grid points Ni in the q direction. 

N2 

Number of grid points jV 2 in the rj direction. 

X 

Cartesian x coordinate. 

Y 

Cartesian y coordinate. 

TAU 

Computational time t. 

MACHR 

Reference Mach number, M r = 14 / V y r R T r . This is 

AOA 

Set equal to 0. 

RER 

Reference Reynolds number, Re r = prUrLIPr* 

TLEVEL 

The current time level n . 

Q(„i) 

Static density p at time level n . 

Q(.,2) 

^-momentum puM r at time level n . 

Q(„3) 

y or r-momentum pvM r at time level n. 

QG.4) 

Swirl momentum pwM r at time level n. 

Q(„5) 

Total energy per unit volume EjM} at time level n. 

QL(„l-5) 

Same as Q(„l-5), except at time level n— 1. 

QT(„1) 

Turbulent kinetic energy k at time level n. 

QT(„2) 

Turbulent dissipation rate t at time level n. 

QTL(„l-2) 

Same as QT(„l-2), except at time level n— 1. 


Note that, except for the QT, QL, and QTL variables, these files have the same format as the XYZ and 
Q files created using the IPLOT = 2 and 3 options. These restart files can thus also be used as XYZ and 
Q files for the PLQT3D plotting program. The QT, QL, and QTL variables will not be read by PLOT3D. 
Note also, however, that the reverse is not true. The XYZ and Q files created using the IPLOT = 2 or 3 
option may not be used as restart files, since they do not include the QT, QL, and QTL variables. 23 


23 Actually, if the input parameters IPLT and IPLTA are such that only the final time level is written into the Q file, 
the XYZ and Q files may be used for an 'approximate' restart. In this case, Proteus will set QL = Q. 
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5.0 INITIAL CONDITIONS 


Initial conditions are required for the mean flow equations throughout the flow field to start the time 
marching procedure. Although the best choice for initial conditions will be problem-dependent, some 
general comments can be made. First, for unsteady flows they should represent a real flow field. A con- 
verged steady- state solution from a previous run would be a good choice. Second, to minimize the number 
of iterations required for steady flows, the initial conditions should be reasonably close to the expected final 
solution. And third, to minimize problems with starting transients it is important that they represent a 
physically realistic flow. 

If the k-z turbulence model is being used, then initial conditions are also required for k and ^throughout 
the flow field. Like the mean flow equations, the best choice for the k-z initial conditions will be highly 
problem-dependent, and will have great influence on the convergence and the stability of the computation. 
It should be noted that k = 0 and z = 0 is merely a trivial solution to the k-z equations (Nichols, 1990), so 
the calculation should not be started with k = z = 0 everywhere in the flow field. The initial profiles for k 
and z should be realistic and smooth, and they should at least obey the boundary conditions (i.e., approach 
zero at solid walls, have zero gradient in the far field, etc.) The initial conditions for the mean flow prop- 
erties (p , w, v, w, and p r ) should also be realistic for fully turbulent flows. A good place to start a calculation 
with the k-z turbulence model would be a restart run from a converged solution of the same flow field with 
an algebraic turbulence model. 

Initial conditions for the mean flow equations may be supplied by a user- written subroutine, called 
INIT, by a default version of INIT that specifies uniform flow with constant flow properties everywhere in 
the flow field, or by restart mesh and flow field files written during a previous run. 

Initial conditions for the k-z equations may be supplied by a user-written subroutine, called KEINIT, 
by a default version of KEINIT that computes k and e from the mean flow field and the assumption of local 
equilibrium (i.e., production equals dissipation), or by restart mesh and flow field files written during a 
previous k-z calculation. 

5.1 USER- WRITTEN INITIAL CONDITIONS 
5. LI Mean Flow Equations 

As stated above, the best choice for initial conditions will be problem-dependent. For this reason 
Proteus does not include a general-purpose routine for setting up initial conditions. Instead, provision is 
made for a user-written subroutine, called INIT, that sets up the initial conditions. 

The time-marching algorithm used in Proteus requires initial conditions for p, w, v, w, Ej , p , and T? A 
These variables may, of course, be computed from many different combinations of known parameters. To 
make this process reasonably flexible, the user may choose from several combinations exactly which vari- 
ables subroutine INIT will supply. This choice is determined by the input parameter ICVARS in namelist 
FLOW. The following tables list the flow field variables to be supplied by subroutine INIT for the various 
ICVARS options, along with the Fortran variables into which they should be loaded. 25 Remember that the 
initial conditions must be nondimensionalized by the reference conditions listed in Table 3-2. The default 
value for ICVARS is 2. 


24 Fewer variables may actually be needed, depending on the values of the input parameters IHSTAG and ISWIRL. 

x Note that some input variables, like the Mach number A/, are not normally saved as separate Fortran variables. 
To save storage they are to be loaded into existing Fortran variables in INIT. These Fortran variables will later 
be loaded with their normal values. 
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When the energy equation is being solved (IHSTAG = 0), and the flow is two-dimensional, or 
axisymmetric without swirl (IAXI = 0 or ISWIRL = 0), the allowed values are: 


ICVARS 

Variables Supplied By INIT 

Fortran Variables 

1 

p, pu, pv, Et 

RHO, U, V, ET 

2 

p, u, v, 7 

P, U, V, T 

3 

P, w, v, 7 

RHO, U, V, T 

4 

P, M, V, P 

P, U, V, RHO 

5 

Cp, U, V, 7 

P, U, V, T 

6 

p, M, a„ T 

P, U, V, T 

equation is being solved (IHSTAG = 0), 
= 1), the allowed values are: 

and the flow is axi 

ICVARS 

Variables Supplied By INIT 

Fortran Variables 

1 

p, pu, pv, pw, Et 

RHO, U, V, W, El 

2 

p, u, v, w, 7 

P, U, V, W, T 

3 

p, u, v, w, 7 

RHO, U, V, W, T 

4 

p, u, v, w, p 

P, U, V, W, RHO 

5 

c p , u, v, w, 7 

P, U, V, W, T 

6 

p, M, ct„ a., 7 

P, U, V, W, T 


When constant stagnation enthalpy is assumed (IHSTAG = 1), and the flow is two-dimensional, or 
axisymmetric without swirl (IAXI = 0 or ISWIRL = 0), the allowed values are: ' 

ICVARS Variables Supplied By INIT Fortran Variables 


1 

2 

3 

5 

6 


P, pu, pv 
P, M. V 
P, W, V 
C„ U, V 
p, M, a. 


RHO, U, V 
P, U,V 
RHO, U, V 
P, U.V 
P, U,V 


When constant stagnation enthalpy is assumed (IHSTAG = 1), and the flow is axisymmetric with swirl 
(IAXI = 1 and ISWIRL = 1), the allowed values are: 

ICVARS Variables Supplied By INIT Fortran Variables 


1 

2 

3 

5 

6 


p, pu, pv, pw 
p, U, V, w 
P, U, V, w 
Cp, U, V, w 
P, A/ , 0t,, fit 


RHO, U, V, W 
P, U, V, W 
RHO, U, V, W 
P, U, V, W 
P, U, V, W 


In the above tables, c„, a„ and a w represent static pressure coefficient, flow angle in degrees in the x-y 
(or x-r) plane, and flow angle in degrees in the x-9 plane, respectively. These parameters are defined as: 




P~Pr 

prfl 2 Zc 


. ~ 1 v 
a v = tan — 


. - 1 w 

“w = tan Tr 
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The Proteus subroutine INITC will use the variables supplied by subroutine 1NIT to compute p, w, v, 
w, and Et , using perfect gas relationships if necessary. From these variables, the pressure and temperature 
will then be recomputed using the equation of state in subroutine EQSTAT, overwriting any values speci- 
fied by the user in IN1T. This ensures a consistent set of initial conditions for the time marching procedure. 

Subroutine INIT is called once, immediately after the input has been read, the reference and normalizing 
conditions have been set, and the geometry and mesh have been defined. The user may do anything he or 
she desires in the subroutine, such as reading files, reading additional namelist input, making computations, 
etc. Any of the defined Fortran variables in common blocks may be used . 26 (Of course, they should not 
be changed.) The only requirement is that subroutine INIT return to the calling program (which is INITC) 
the combination of variables specified by ICVARS, defined at every grid point. 

Subroutine INIT is also a convenient place to specify point-by-point boundary condition types and 
values. It's often easier to do this using Fortran coding rather than entering each value into the namelist 
input file. See Section 9.2 for a test case with a user- written version of subroutine INIT. 

5.1.2 k-z Equations 

As with the mean flow equations, the best choice for initial conditions for the k-z equations will be 
problem-dependent. For this reason, Proteus does not have a general-purpose routine for setting up initial 
conditions for k and z . Instead, provision is made for a user-wntten subroutine, called KEINIT, that sup- 
plies the initial values for k and z. 

Assuming that the variables p, u, v, w, £ 7 , />, and T at time level n axe available for the turbulent flow 
field under consideration, the k-z turbulence model in Proteus also requires k , e, and values at time levels 

n and n - 1 before the k-z calculation can be started. These variables may be computed by using many 
different assumptions and techniques, or simply by fitting the available experimental data. 

Subroutine KEINIT is used when a calculation is first started from an initial flow field, or when a restart 
is made from an algebraic turbulence model calculation. It is called once, immediately after the initial 
conditions for the mean flow have been computed. Subroutine KEINIT must supply the initial values for 
the Fortran variables KE, E, MUT (omit MUT if the calculation is a restart from a previous algebraic 
turbulence model calculation), KEL, EL, and MUTL at every grid point. Usually, KEL, EL, and MUTL 
can be set equal to KE, E, and MUT, respectively. The default version of KEINIT, described below, is a 
good place to start when developing a user- written version. 

5.2 DEFAULT INITIAL CONDITIONS 

5.2.1 Mean Flow Equations 

A default version of subroutine INIT is built into Proteus that specifies uniform flow with constant flow 
properties everywhere in the flow field. It uses the ICVARS = 2 option (the default value) and reads initial 
flow field values of /?, u , v, w, and T from namelist IC. The defaults for these parameters^ are 1.0, 0.0, 0.0, 
0.0, and 1.0, respectively, resulting in an initial flow field with p = p„ w = v = w = 0, and T == T r . If a value 
for ICVARS other than 2 is set in the input, a warning message is generated and ICVARS is reset to 2. 

5.2.2 k-z Equations 

A default version of subroutine KEINIT is built into Proteus that calculates the k and s initial profiles 
using the initial mean flow field values of p, w, v, w, and p , along with the assumption of local equilibrium 
(i.e., production equals dissipation). The turbulent viscosity value is also needed, and is obtained from 
the Baldwin-Lomax algebraic model. The assumption of local equilibrium has been found to give good 
initial values for the k profile near a solid wall. In particular, the location and magnitude of the first peak 
in the k profile is well predicted. Of course, k and s will depend heavily on the initial velocity and turbulent 
viscosity, and unrealistic initial profiles for k and z might result from bad initial velocity and turbulent 
viscosity profiles. The k and z values calculated using this subroutine can be extremely small in regions of 


26 See Volume 3 for definitions of all the common block variables. 
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nearly inviscid, freestream flow. Therefore, it is up to the user to make sure that the freestream values of 
k and e are appropriate for the problem under consideration, perhaps by modifying the value of the input 
parameter CKMIN. 

5,3 RESTART INITIAL CONDITIONS 

If restart mesh and flow field files were created during a previous run by setting IREST > 0 in namelist 
RSTRT, these files can be used to continue the calculation from the point where the previous run stopped. 
In this case no subroutine INIT is needed. The restart case is run by linking the existing restart mesh and 
flow field files to Fortran units NRXIN and NRQIN, respectively, and setting IREST = 2 or 3 in the input. 
New restart files will also be written to units NRXOUT and NRQOUT. 

As mentioned above, subroutine KEINIT is used when the k-e computation is done for the first time 
(IREST < 1), or when restarting from a previous computation that used an algebraic turbulence model 
(IREST = 3). However, if the previous calculation used the k-t turbulence model (IREST = 2), then the 
restart files also contain the information needed to continue the k-t calculation. In this case, subroutine 
KEINIT is not needed. 

When a restart case is being run, the usual namelist input described in Section 3.1 must still be read in. 
The following input parameters must have the same values as during the original run: I LI NITS, IAXI, 
IHSTAG, ILAMV, ISWIRL, LR, UR, MACHR, TR, RHOR, MUR, RER, KTR, PRLR, GAMR, RG, 
HSTAGR, Nl, N2 t IPACK, and SQ. The remaining input parameters either may be changed during a 
restart, or do not apply to a restart case. Note, however, that for many of the input parameters, such as 
those specifying the boundary conditions, changing values during a restart may result in temporary "re- 
starting" transients or even cause the calculation to blow up. 


\ 
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6.0 RESOURCE REQUIREMENTS 


Proteus was developed on the Cray X-MP and Y-MP computers at NASA Lewis Research Center. 
Changes that may be necessary when porting the code to another system are described in Section 6.1. 
Sections 6.2 and 6.3 discuss the memory and CPU time required to run the code. The values presented in 
these sections are for version 2.0 of the Proteus code, and were derived from tests run on the NASA Lewis 
Cray Y-MP in November, 1991. At that time the Cray was running UNICOS Version 6.0 and CFT77 
4.0.3. UNICOS and CFT77 are described in the UNICOS User Commands Reference Manual (Cray Re- 
search, Inc., 1991), and in CF77 Compiling System, Volume I: Fortran Reference Manual (Cray Research, 
Inc., 1990), respectively. Section 6.4 describes the size and format of the various input and output files used 
in the code. 

6.1 COMPUTER 


Proteus should be transportable to other computer systems with minimal changes. With just three 
known exceptions, the code is written entirely in ANSI standard Fortran 77. The first exception is the use 
of namelist input. With namelist input, it's relatively easy to create and/or modify input files, to read the 
resulting files, and to program default values. Since most Fortran compilers allow namelist input, its use 
is not considered a serious problem. The second exception is the use of *CALL statements to include 
COMDECK's, which contain the labeled common blocks, in most of the subprograms. This is a Cray 
UPDATE feature, and therefore the source code must be processed by UPDATE to create a file that can 
be compiled. 27 UPDATE is described in the UPDATE Reference Manual (Cray Research, Inc., 1988). Since 
lining the *CALL statements results in cleaner, more readable code, and since many computer systems have 
an analogous feature, the *CALL statements were left in the program. The third exception is the use of 
lowercase alphabetic characters in the Fortran source code. This makes the code easier to read, and is a 
common extension to Fortran 77. 

Several library subroutines are called by Proteus. SGEFA and SGESL are Cray versions of LINPACK 
routines. SASUM and SNRM2 are Cray Basic Linear Algebra Subprograms (BLAS). ISAMAX, 
ISAMIN, and ISRCHEQ are Cray search routines. TREMAIN is a Cray Fortran library routine. All of 
these routines are described in detail in Section 4.0 of Volume 3. In addition, SGEF A and SGESL are 
described in Volume 3: UNICOS Math and Scientific Library Reference Manual (Cray Research, Inc., 
1989b) and by Dongarra, Moler, Bunch, and Stewart (1979); SASUM, SNRM2, ISAMAX, ISAMIN, and 
ISRCHEQ are described in Volume 3: UNICOS Math and Scientific Library Reference Manual (Cray Re- 
search, Inc., 1989b); and TREMAIN is described in Volume 1: UNICOS Fortran Library Reference Manual 
(Cray Research, Inc., 1989a). These or similar routines may be available on other systems. If not, equiv- 
alent routines will have to be coded. 

6.2 MEMORY 


The sizes of the dimensioned arrays in Proteus , and hence the amount of memory required to run the 
program, are set using Fortran parameter statements. These parameters are set in COMDECK PARAMS1. 
Larger or smaller dimensions may be set for the entire program simply by changing the appropriate pa- 
rameter, and then recompiling the entire program. The parameters are defined as follows: 

NIP Maximum number of grid points in the £ direction. The current value is 51. 

N2P Maximum number of grid points in the r\ direction. The current value is 51. 

NMAXP Maximum of NIP and N2P. 

NTOTP Total storage required for a single two-dimensional array (i.e., NIP x N2P). 


21 See the example in Section 8.1. 
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NEQP 


NEQPM 

NAMAX 

NBC 

NTP 

NTSEQP 


Number of coupled equations allowed. The number of equations to be solved 
depends on the values of the input parameters IHSTAG and ISWIRL, as shown 
in Table 3-4 in Section 3.0. In the Proteus code, NEQP is initially set equal to 4. 
Therefore, to run an axisymmetric case with swirl and with the energy equation, 
the user must first change the value of NEQP in COMDECK PARAMS1 to 5, 
then recompile the program. Proteus will still work if NEQP is larger than the 
value of NEQ shown in Table 3-4, but will use more memory than is actually 
needed. 

Maximum number of coupled equations available. This is the largest permissible 
value for NEQP. The current value is 5. 

Maximum number of time steps allowed in the moving average convergence test 
(the ICTEST = 2 option). The current value is 10. 

Number of boundary conditions per equation. The current value is 2. 

Maximum number of entries in the table of time-dependent boundary condition 
values. The current value is 10. 

Maximum number of time step sequences in the time step sequencing option. The 
current value is 10. 


The total amount of memory in computer words required to run Proteus 2-D, compiled using CFT77, 
is listed in the following table for various combinations of the dimensioning parameters NIP, N2P, and 
NEQP. 25 On the Cray X-MP and Y-MP, each word is 64 bits long. 


NIP 

N2P 

MEMORY 

NEQP = 3 

NEQP = 4 

NEQP * 5 

51 

■n 

527,872 

585,216 

657,920 

101 

■ 

1,071,616 

1,295,872 

1,581,568 

201 

■ 

3,223,040 

4,111,872 

5,243,392 

401 


11,786,752 

15,324,160 

19,826,688 

51 

101 

711,168 

824,320 

968,704 

51 

201 

1,077,760 

1,303,040 

1,590,272 

51 

401 

1,810,432 

2,260,480 

2,832,896 

101 

201 

1,793,024 

2,239,488 

2,808,320 

101 

401 

3,235,840 

4,126,720 

5,260,800 

201 

401 

6,086,144 

7,859,200 

10,116,096 


6.3 CPU TIME 


Compilation of Proteus 2-D using the CFT77 compiler requires about 159 seconds of CPU time. The 
CPU time required for execution will depend on several factors, such as the turbulence model being used, 
and whether or not the energy equation is being solved. For the test cases in Section 9.0, the CPU time 
ranged from about 2 x 10~ 5 to 5 x 10" 5 seconds per grid point per time step. 

6.4 INPUT/OUTPUT FILES 

Several files are used in Proteus for various types of input and output. The contents of these files have 
been described previously in Sections 3.0 and 4.0. This section describes the characteristics of the files 
themselves. The files are identified by the Fortran variable representing the unit number. The unit numbers 
have default values, but all of them except NIN may be read in by the user. 

Table 6-1 lists the files used in Proteus , giving the default unit number, briefly describing the contents 
of the file, and indicating when it is used. Table 6-2 summarizes the computational resources needed for 
each file. In this table, the record length is specified in bytes for units NIN and NOUT, and in computer 


2* It should be noted that version 4.0.3 of the CFT77 compiler itself requires just under 1,300,000 words. 


68 6,0 Resource Requirements 


Proteus 2-D User's Guide 















words for the remaining units. The total file size is specified in printed pages for unit NOUT, and in 
computer words for the remaining units. Several symbols and Fortran variables are used in Table 6-2, and 
are defined as: 

N„ 0 if explicit artificial viscosity is not being used, 1 if it is. 

N^rt 0 if the input parameter ITURB = 0 or 1, 1 if ITURB = 20. 

N" The number of coupled equations being solved. 

N, The number of time levels written into the plot file. This is determined by the 

input parameters IPLT and IPLTA. 

N, u N , 2 The time level at the beginning and at the end of the calculation. 

N N t The number of grid points in the rj and £ directions at which output is being 

printed. This is determined by the input parameters IPRT1, IPRT2, IPRT1A, and 
IPRT2A. 

N u A 2 The number of grid points in the * and »j directions. 

ICHECK Input parameter specifying frequency for checking convergence. 

IPLOT Input flag specifying type of plot file being written. 

NG1, NG2 Number of points in the £ and rj directions in the coordinate system file. 

The typical record length and total size values listed in the table were computed assuming N„ = 1, 
JV** = 0, N„ = 4, N t = 1, Nn=\, N a = 2000, N,= N t = 26, N t = N 2 — 51, ICHECK = 10, and 
NG1 = NG2= 51. 
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TABLE 6-1. - I/O FILE TYPES 


UNIT 

DEFAULT 
UNIT NO. 

RECORD 

FORMAT 

CONTENTS 

WHEN USED 

NIN 

5 

Formatted 

Standard input 

Always 

NOUT 

6 

Formatted 

Standard output 

Always 

NGRID 

7 

Unformatted 

Coordinate system input 

NGEOM= 10 

NPLOTX 

8 

Unformatted 

PLOT3D XYZ file output 

IPLOT = 2, 3, -3,4 

NPLOT 

9 

Unformatted 

CONTOUR plot file or 
PLOT3D Q file output 

IPLOT # 0 

NHIST 

10 

Unformatted 

Convergence history output 

Always 

NRQIN 

11 

Unformatted 

Restart flow field input 

IREST = 2, 3 

NRQOUT 

12 

Unformatted 

Restart flow field output 

IREST = 1, 2, 3 

NRXIN 

13 

Unformatted 

Restart computational 
coordinates input 

IREST = 2, 3 

NRXOUT 

14 

Unformatted 

Restart computational 
coordinates output 

IREST = 1, 2, 3 

NSCR1 

20 

Unformatted 

Scratch 

IPLOT = - 3 
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TABLE 6-2. - I/O FILE SIZES 


UNIT 

MAXIMUM 
RECORD LENGTH 2 

TYPICAL 

MAXIMUM 

RECORD 

LENGTH 3 

TOTAL SIZE b 

TYPICAL 

TOTAL 

SIZE b 

NIN 

80 

80 

Variable 

Variable 

NOUT 

132 

132 

^ (2 N" + 3) pages + 

{(A', + 3)[(N { - 0/10+1] 

+ 2} /55 pages per variable 
per time level 

1 1 pages + 
2 pages per 
variable per 
time level 

NGRID 

2(NG1)(NG2) 

5,202 

2(NG1)(NG2) + 2 

5,204 

NPLOTX 

IPLOT 

5N x N 2 
3 NiN 2 
2N x N 2 

7,803 

7,803 

5,202 

IPLOT 

3N X N 2 4- 3 
3N X N 2 N, + 3 
2 N X N 2 + 2 

7,806 

7,806 

5,204 

2,3 

-3 

4 

2,3 

-3 

4 

NPLOT 

IPLOT 

22 

714 

714 

13,005 

10,404 

IPLOT 

(14N X N 2 + 32)N, 
(\4N X N 2 + S)N, 
+ 27 

(5 N X N 2 + 7)N, 

(4 N X N 2 + 6)N, 

36,446 

36,446 

13,012 

10,410 

1 

- I 

2, 3, - 3 
4 

1 

- 1 

2, 3, - 3 
4 

NHIST 

lN eq 

28 

(A„+ WN tq )(N a - N tl + 1) 
/ ICHECK + N tll + 12 

11,216 

NRQIN, 

NRQOUT 

SN\N 2 

13,005 

10N X N 2 + 4NturtNiN 2 + 7 

26,017 

NRXIN, 

NRXOUT 

2>N x N 2 

7,803 

3 NiN 2 + 3 

7,806 

NSCR1 

6N x N 2 

15,606 

6N l N 1 N, 

15,606 


a Ii_ bytes for units NIN and NOUT, and in computer words for the remaining units. 
b In pages for units NIN and NOUT, and in computer words for the remaining units. 
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7.0 DIAGNOSTIC MESSAGES 


Various diagnostic messages may be printed by Proteus as part of its standard output. 29 Most of these 
concern inconsistent or invalid input, although some describe problems encountered during the calculation 
itself. Two types of messages may appear - errors and warnings. Error messages are preceded by the 
characters **** ERROR, and indicate either a serious problem or an input error that Proteus cannot resolve. 
Warning messages are preceded by the characters **** WARNING, and indicate either a potential problem 
or a non-standard combination of input parameters. Errors cause the calculation to stop, while warnings 
do not. 

The various error and warning messages are listed and explained in the following two subsections. Italic 
letters, like value , are used to indicate variable values. The subprogram in which the message is printed is 
given in parentheses at the end of the each explanation. 

7.1 ERROR MESSAGES 
Both itxi and iteta = 0. 

A turbulent flow is being computed, with flags set in namelist TURB to bypass the turbulent 
viscosity computation in both coordinate directions. This makes no sense. (TURBBL) 

Both machr and ur specified, 
machr = value, ur = value 

Either the reference Mach number or velocity may be specified in namelist FLOW, but not both. 
(INPUT) 

Both prlr and ktr specified, 
prlr = value, ktr = value 

Either the reference laminar Prandtl number or thermal conductivity may be specified in namelist 
FLOW, but not both. (INPUT) 

Both rer and mur specified. 

rer = value, mur = value 

Either the reference Reynolds number or viscosity may be specified in namelist FLOW, but not 
both. (INPUT) 

Coordinate system file has ngl and/or ng2 > max allowed* 

ngl = value, ng2 = value 

A coordinate system file has been read in, using the NGEOM =10 option, with more grid points 
than allowed. The maximum allowed values of NG1 and NG2 are the values of the dimensioning 
parameters NIP and N2P, respectively. (GEOM) 

Grid transf ormation Jacobian changes sign or = 0. 

The nonorthogonal grid transformation Jacobian J must be either everywhere positive or every- 
where negative. This error indicates that the computational mesh contains crossed or coincident 
grid lines. The error message is followed by a printout of the Cartesian coordinates, the Jacobian, 
and the metric coefficients. (METS) 


29 The diagnostic messages described in this section are generated by the Proteus code itself, and appear as part of 
the standard output. Any computer system error messages due to floating-point errors, etc., are, of course, 
system -dependent On UNIX -based systems, system errors will normally appear in the standard error file. 
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Illegal option for computational coordinates requested, 
ngeom = value 

An illegal value of NGEOM has been specified in namelist GMTRY. The legal values are 1,2, 
and 10, and axe described in Section 3.1.5. (GEOM) 

Illegal plot file option requested, 
iplot = value 

An illegal value of IPLOT has been specified in namelist 10. The legal values are 0, + 1, 2, ± 3, 
and 4, and are described in Section 3.1.4. (PLOT) 

Illegal thin-layer option. 
ithinC ttfir) = value 

An illegal value of ITHIN(/<f/r) has been specified in namelist FLOW. Here idir = 1 or 2 corre- 
sponding to the f and rj directions, respectively. The legal values are 0 and 1, and are described in 
Section 3.1.6. (INPUT) 

Illegal time step selection option requested, 
idtau = value 

An illegal value of IDTAU has been specified in namelist TIME. The legal values are 1 to 9, and 
are described in Section 3.1.9. (TIMSTP) 

Illegal value for iaxi . 
iaxi = value 

An illegal value of IAXI has been specified in namelist GMTRY. The legal values are 0 and 1, and 
are described in Section 3.1.5. (INPUT) 

Illegal value for icvars. 
icvars = value 

An illegal value of ICVARS has been specified in namelist FLOW. The legal values are 1 to 6, and 
are described in Section 3.1.6. (INITC) 

Illegal value for ieuler. 
ieuler - value 

An illegal value of IEULER has been specified in namelist FLOW. The legal 'alues are 0 and 1, 
and are described in Section 3.1,6. (INPUT) 

Illegal value for ihstag . 
ihstag = value 

An illegal value of IHSTAG has been specified in namelist FLOW. The legal values are 0 and 1, 
and are described in Section 3.1.6. (INPUT) 

Illegal value for ilamv. 
ilamv = value 

An illegal value of ILAMV has been specified in namelist FLOW. The legal values are 0 and 1, 
and are described in Section 3.1.6. (FTEMP) 

Illegal value for ildamp. 
i I damp = value 

An illegal value of ILDAMP has been specified in namelist TURB. The legal values are 0 and 1, 
and are described in Section 3.1.10. (INPUT) 

Illegal value for inner, 
inner = value 

An illegal value of INNER has been specified in namelist TURB. The legal values are 1 and 2, and 
are described in Section 3.1.10. (INPUT) 
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Illegal value for irest. 
irest = value 

An illegal value of IREST has been specified in namelist RSTRT. The legal values are 0, 1, 2, and 
3, and are described in Section 3.1.3. (INPUT) 

Illegal value for iswirl. 
i swirl = value 

An illegal value of ISWIRL has been specified in namelist FLOW. The legal values are 0 and 1, 
and are described in Section 3.1.6. (INPUT) 

Illegal value for itxi or iteta. 
itxi, iteta = value value 

An illegal value of either ITXI or ITETA has been specified in namelist TURB. The legal values 
are 0 and 1, and are described in Section 3.1.10. (INPUT) 

Illegal value for iunits. 
iunits = value 

An illegal value of IUNITS has been specified in namelist 10. The legal values are 0 and 1, and 
are described in Section 3.1.4. (INPUT) 

Illegal value for lwalll. 
luallltj ,ibound') = value 

Illegal value for lwall2. 
lwall Zii , ibound) = value 

An illegal value of LWALL 1 or LWALL2 has been specified in namelist TURB. Here i and j are 
the indices in the C and r/ directions, and i bound — 1 or 2, corresponding to the £ = 0 or 1 surface, 
or the rj = 0 or 1 surface. The legal values are 0 and 1, and are described in Section 3.1.10. (IN- 
PUT) 

Invalid boundary condition type requested, 
jbcl {ieq, ibound) or ibclC j , ieq , ibound) = value 

Invalid boundary condition type requested. 

jbc2( ieq Abound) or ib c2 (/, ieq , ibound) = value 

These messages result from an invalid boundary condition type being specified in namelist BC for 
the £ and/or y direction. Here ieq is the boundary condition equation number; ibound = l or 2, 
corresponding to the £ = 0 or 1 surface, or the r\ = 0 or 1 surface; and i andy are the indices in the 
£ and 7 ] directions. The valid boundary conditions are listed in Table 3-6. (BCDENS, BCF, 
BCGEN, BCPRES, BCQ, BCTEMP, BCUVEL, BCVDIR, BCWEL, BCWVEL) 

Invalid boundary type requested, 
kbcl abound) - value 

Invalid boundary type requested. 
kbc2 abound} = value 

These messages result from an invalid boundary type being specified in namelist BC, for the £ 
and/or r\ direction, when the KBC meta flags are used. Here ibound = 1 or 2, corresponding to 
the £ = 0 or 1 surface, or the rj = 0 or 1 surface. The valid boundary types are listed in Section 
3.1.7. (BCSET) 

Invalid grid packing location for Roberts formula. 

sq(frftr,l) = value 

An invalid grid packing location, given by the value of SQ(IDIR,1) in namelist NUM, has been 
specified. Here idir = 1 or 2, corresponding to the f and r\ directions, respectively. The valid 
values are 0.0, 0.5, and 1.0, and are described in Section 3.1.8. (INPUT) 
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Invalid grid packing option, 
ipack ( idir') = value 

An invalid grid packing option, given by the value of IPACK(IDIR) in namelist NUM, has been 
specified. Here idir = 1 or 2, corresponding to the f and rj directions, respectively. The valid 
values are 0 and 1, and are described in Section 3.1.8. (PAK) 

Invalid grid packing parameter for Roberts formula. 

sq ( idir , 2 ) = value 

An invalid grid packing parameter, given by the value of SQ(idir,2) in namelist NUM, has been 
specified. Here idir ~ 1 or 2, corresponding to the £ and r] directions, respectively. The valid 
values are > 1, and are described in Section 3.1.8. (INPUT) 

Invalid time step selection method for time step sequencing option, 
idtau = value, ntseq = value 

A time step selection option that adjusts At as the solution proceeds has been specified in namelist 
TIME in conjunction with the time step sequencing option. If the time step sequencing option is 
being used, IDTAU must be 1, 3, or 5. (INPUT) 

Invalid type of artificial viscosity requested. 
iav4e, iav2e, iav2i = value value value 

An invalid type of artificial viscosity has been specified in namelist NUM. The valid values are 0, 
1, and 2 for IAV4E and IAV2E, and 0 and 1 for IAV2I, and are described in Section 3.1.8. (IN- 
PUT) 

Invalid type of unsteadiness for boundary condition requested, 
jtbcl C ieq,ibound) = value 

Invalid type of unsteadiness for boundary condition requested. 
jtbc2( ieq,ibound) - value 

These messages result from an invalid type of unsteadiness being specified in namelist BC for the 
boundary conditions in the 1 and; or rj direction. Here ieq is the boundary condition equation 
number, and ibound = 1 or 2, corresponding to the £ = 0 or 1 surface, or the y\ = 0 or 1 surface. 
The valid values for JTBC1 and JTBC2 are 0, 1, and 2, and are described in Section 3.1.7. (TBC) 

size requested > max allowed. 

value, n2 = value 

More grid points have been requested in namelist NUM than are allowed. For non-periodic 
boundary conditions, the maximum allowed values of N1 and N2 are the values of the dimen- 
sioning parameters NIP and N2P, respectively. For spatially periodic boundary conditions, the 
maximum values are NIP — 1 and N2P — 1. (INPUT) 

time step sequences requested than allowed, 
ntseq = value 

For the time step sequencing option, the number of time step sequences, specified in namelist 
TIME, cannot exceed the value of the dimensioning parameter NTSEQP. (INPUT) 

neqp not large enough. 

neqp, ihstag, iswirl = value value value 

The value of the dimensioning parameter NEQP, which sets the maximum number of coupled 
equations that can be solved, is not large enough. The number of equations to be solved depends 
on the values of the input parameters IHSTAG and ISWIRL. See Section 6.2 and Table 3-4 in 
Section 3.0. (INPUT) 


Mesh 
nl = 


More 
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Non-existent turbulence model requested, 
iturb = value 

A non-zero value for ITURB has been specified in namelist FLOW that does not correspond to 
one of the turbulence models currently available in Proteus . The only valid non-zero values for 
ITURB are 1 and 20, corresponding to the algebraic Baldwin-Lomax and the Chien two-equation 
turbulence models, respectively. (INITC, MAIN) 

Non-positive pressure and/or temperature at time level n 

II 12 P T 

value value value value 

During the solution, a non-positive value for pressure and/or temperature has been computed in 
subroutine EQSTAT. Up to 50 values will be printed. These values, of course, are non-physical 
and indicate a failure of the solution. Although the calculation will stop, the standard output and 
plot file will include this time level, if that is consistent with the TPRT" and TPLT" parameters in 
namelist 10. The restart files will not be written. This failure may be caused by bad initial or 
boundary conditions, or by too large a time step. (INITC, MAIN) 

Number of values in unsteady boundary condition table > max allowed, 
ntbc = value 

For unsteady boundary conditions, the number of values in the tables of GTBC1 and/or GTBC2 
vs. NTBCA, specified in namelist TIME, cannot exceed the value of the dimensioning parameter 
NTP. (INPUT) 

Singular block matrix for b. c. at lower boundary, sweep n 

Singular block matrix for b. c. at upper boundary, sweep n 

When boundary conditions are specified using the JBC and/or IBC input parameters, zero values 
may appear on the diagonal of the block tridiagonal coefficient matrix. Subroutine FILTER at- 
tempts to rearrange the elements of the boundary condition block submatrices to eliminate any of 
these zero values. These messages indicate it was unable to do so for the boundary and sweep in- 
dicated. This means the diagonal submatrix B is singular, which in turn means the specified 
boundary conditions are not independent of one another. (FILTER) 

7.2 WARNING MESSAGES 

chgmax > 0.15, cfl cut in half. 

chgmax > 0.15, dtau cut in half. 

With the IDTAU = 2, 4, and 6 options, the time step is adjusted gradually as the solution proceeds 
based on the absolute value of the maximum change in the dependent variables. One of these 
messages may occur if the solution changes very rapidly. (The first message applies to the 
IDTAU = 2 and 6 options, and the second to the IDTAU = 4 option.) Under these conditions the 
time step is arbitrarily cut in half, and the solution continues. This may stabilize the calculation, 
but consideration should be given to rerunning the problem with a smaller time step, especially for 
unsteady flows. (TIMSTP) 


Proteus 2-D User's Guide 


7.0 Diagnostic Messages 77 



Conflicting boundary conditions specified. 

kbcl (ibound) = value, jbclC ieq, ibound) = value, ibclCy , ieq, ibound) = value 
kbclC ibound) = value will be used. 

Conflicting boundary conditions specified. 

kbo2Ubound ) = value, jb c2 (ieq , ibound) = value, ibc2C i, ieq, ibound) = value 
kbc2 abound) - value will be used. 

These messages indicate that a boundary type was specified using the KB C parameter, and that 
individual boundary conditions were also specified for that boundary using the JBC and/or IBC 
parameters, for one of the £ and/or rj boundaries. For a given boundary, the boundary type may 
be specified using the KBC parameter, or individual boundary conditions may be specified using 
the JBC and/or IBC parameters. Here ibound = 1 or 2, corresponding to the £ — 0 or I surface, 
or the r] = 0 or 1 surface; ieq is the boundary condition equation number; and / and j are the indices 
in the £ and y\ directions. Boundary conditions will be set using the KBC parameter, and the cal- 
culation will continue. See the discussion of boundary condition input in Section 3.1.7. (INPUT) 

Conflicting boundary conditions specified. 

j b c 1 ( ieq , ibound ) = value, ibcl ( j , ieq , ibound) = value 
jbclC ieq, ibound) = value will be used. 

Conflicting boundary conditions specified. 
jbc2( ieq , ibound) = value, ibc2(/, ieq, ibound) = value 
jbc2 (ieq, ibound) = value will be used. 

These messages indicate that both surface and point-by-point boundary conditions were specified 
for the same boundary condition equation number for one of the £ and/or rj boundaries. Each 
boundary condition on each boundary may be specified for the entire surface using the JBC and 
GBC parameters, or on a point-by-point basis using the IBC and FBC parameters, but not both. 
Here ieq is the boundary condition equation number; ibound = 1 or 2, corresponding to the 
£ = 0 or 1 surface, or the rj = 0 or 1 surface; and i and j are the indices in the £ and t] directions. 
A likely cause of this error message is specifying point -by-point boundary conditions without set- 
ting the appropriate JBC parameter equal to — 1. The boundary condition will be set using the 
JBC parameter, and the calculation will continue. See the discussion of boundary condition input 
in Section 3.1.7. (INPUT) 

icvars reset to 2 for default init. 

The default version of subroutine INIT is set up assuming ICVARS = 2. If another value of 
ICVARS is read in, it is automatically reset to 2 and the calculation will continue. (INIT) 

Illegal convergence testing option requested, 
ictest = value, reset to ictest = 3 

An illegal value of ICTEST has been specified in namelist TIME. ICTEST will be reset to 3, 
corresponding to convergence based on the Lz norm of the residual, and the calculation will con- 
tinue. The legal values are 1 to 5, and are described in Section 3.1.9. (CONV) 

Illegal output requested. 
ivout(/ 2 ) = value 

An illegal value of IVOUT has been specified in namelist 10. It will be ignored and the calculation 
will continue. The legal values of IVOUT are listed in Table 3-3. (OUTPUT) 

Implicit & nonlinear explicit artificial viscosity both requested. 
iav2i , iav2e, iav4e = value value value 
cavs2i = value value value value value 

Normally, the nonlinear artificial viscosity model, specified by setting IAV2E and IAV4E = 2, is 
explicit only. This message is printed when implicit artificial viscosity is requested at the same time. 
Proteus will assume that you know what you are doing and the implicit artificial viscosity will be 
included. (INPUT) 


78 7.0 Diagnostic Messages 


Proteus 2-D User's Guide 



Invalid debug option specified. 
idebug(Z) 

An invalid debug option, number /, has been specified in namelist 10. The valid IDEBUG options 
are 1 to 8, and are described in Section 3.1.4. (INPUT) 

Non-standard time difference centering requested. 

the = value value 

thx = value value value 

thy = value value value 

thz = value value value 

the = value value value 

The Beam-Warming type time differencing used in Proteus includes three standard implicit schemes 
- Euler, trapezoidal, and three-point backward. This message indicates that a combination of time 
differencing parameters Q u 0 2 , and 0 3 has been specified for at least one of the governing equations 
that does not correspond to any of the three standard schemes. Proteus will assume that you know 
what you are doing and the specified time differencing parameters will be used. (INPUT) 

Spatially varying time step requested with time-accurate differencing scheme. 

idtau = value 

the = value value 

thx s value value value 

thy = value value value 

thz = value value value 

the = value value value 

For steady flows, a spatially varying time step may be used to enhance convergence, and first-order 
time differencing is recommended. Using a second-order time-accurate differencing scheme should 
not give wrong results, but is wasteful. For unsteady flows, second-order time-accurate differencing 
should be used, but only a global (i.e., constant in space) time step makes sense. (INPUT) 

Time level may fall outside range of input table for unsteady b. c. 
itbeg = value , itend = value, ntbca(l) = value , ntbca(/zf6c) = value 

General unsteady boundary conditions are being used, and the time levels in the input table of 
GTBC1 and/or GTBC2 vs. NTBCA do not cover the time levels that will occur during the time 
marching loop. Here itbeg and itend are the first and last time levels in the time marching loop, 
and ntbc is the value of the input parameter NTBC. If the time level n < NTBCA(l), the boundary 
condition value will be set equal to the first value in the table. Similarly, if n> NTBCA(NTBC), 
the value will be set equal to the last value in the table. (TBC) 

7.3 OTHER MESSAGES 


Converged solution at time level n 

The solution has converged, according to the criteria specified by the parameters ICTEST and EPS, 
at the indicated time level. The calculation will stop, and the standard output and plot file will 
include this time level, if that is consistent with the TPRT" and "IPLT" parameters in namelist 10. 
The restart files will be written. (MAIN) 

Not yet converged. 

The solution has not converged, according to the criteria specified by the parameters ICTEST and 
EPS, within the number of time steps specified by NTIME. The calculation will stop, and the 
standard output and plot file will include this time level, if that is consistent with the TPRT*' and 
TPLT" parameters in namelist 10. The restart files will be written. (MAIN) 

Sorry, ran out of epu time at time level n 

The calculation was stopped at the indicated time level because the job was almost out of CPU 
time. The standard output and plot file will include this time level, if that is consistent with the 
"IPRT" and TPLT" parameters in namelist IO. The restart files will be written. (MAIN) 
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8.0 JOB CONTROL LANGUAGE 


At NASA Lewis, Proteus is currently being run on the Cray X-MP and Y-MP computers, with 
UNICOS 6.0 as the operating system. In this section several general examples are presented showing the 
JJNJCOS job control language (JCL) that may be used as starting points when setting up specific cases. 30 
The individual UNICOS commands are described in detail in the UNICOS User Commands Reference 
Manual, (Cray Research, Inc., 1991). These examples are written for the Bourne shell. Some changes may 
be necessary if the C shell is being used. It is assumed that the user is familiar with the procedures used at 
their site to submit jobs to the Cray, and to receive and process the output files. 

Each example is given with reference line numbers, which are not part of the actual JCL statement, 
followed by a line-by-line explanation. Note that in UNICOS, the case (upper or lower) of the letters in 
commands and arguments is significant. In this respect, the examples should be followed exactly. 


8.1 COMPILING THE CODE 


In this example, the Proteus code is compiled on the Cray. It is assumed that the source code is in the 
proper format for the Cray UPDATE facility, as described in the UPDATE Reference Manual (Cray Re 
search, Inc., 1988). 

1. # QSUB -1M 2 . OmW -IT 300 

2. # QSUB -mb -me 

3. # QSUB -o temp. out 

4. # QSUB -eo 

5. # QSUB -r EXAMPLE 

6. # QSUB -s /bin/sh 

7 . set -x _ 

8. update -i p2d20.s -n p2d20.u -c p2d20 -f 

9. cft77 -b p2d20 . o -d pq -o aggress p2d20.f 

10 . rm p2d20 .f 


Lines 1 through 6 are actually Network Queueing System (NQS) commands, not UNICOS commands. 
They must appear first in the runstream, and begin with a # sign. This first line sets the memory and CPU 
time limits for the job at 2.0 million words and 300 seconds. 

Line 2 tells the Cray to send email when the job starts and finishes. 

Line 3 tells the Cray to store the standard output in the file temp.out. 

Line 4 causes any system error messages to be included in the standard output file. 

Line 5 gives the name of the job as EXAMPLE. 

Line 6 causes the Bourne shell to be used for this job. 

Line 7 causes your UNICOS commands to be printed as part of the output runstream. 

Line 8 uses the Cray UPDATE facility to create the files, p2d20.f, which contains the complete compilable 
Fortran code for Proteus , and p2d20.u, which contains the Proteus update program library. The update 
command uses as input the file p2d20.s . 

Line 9 compiles the program p2d20.f, storing the object code in the fde p2d20.o. 

Line 10 removes the named file. 


30 See Section 9.0 for specific examples of actual cases. 
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8.2 RUNNING THE MASTER OLE 


The simplest way to run Proteus is shown in this example. The existing master file is being used, 
without making any changes. 

1. # QSUB - 1M l.OmW -IT 60 

2. # QSUB -mb -me 

3. t QSUB -o temp. out 

4. t QSUB -eo 

5. # QSUB -r EXAMPLE 

6. # QSUB -s /bin/sh 

7 . set -x 

8 . ja 

9. touch plotx 

10. touch plotq 

11. touch chist 

12. touch rq2 

13. touch rx2 

14. touch scrl 

15. In plotx fort. 8 

16. In plotq fort. 9 

17. In chist fort. 10 

18. In rq2 fort. 12 

19. In rx2 fort. 14 

20. In scrl fort. 20 

21. In coords fort. 7 

22. segldr -o p2d20.ex p2d20.o 

23. p2d20 . ex « E0D 

Standard Proteus input file goes here 

24. EOD 

25. rm scrl p2d20.ex 

26 . ja -cslt 

Lines 1 through 6 are actually Network Queueing System (NQS) commands, not UNICOS commands. 
They must appear first in the runstream, and begin with a # sign. This first line sets the memory and CPU 
time limits for the job at 1.0 million words and 60 seconds. 

Line 2 tells the Cray to send email when the job starts and finishes. 

Line 3 tells the Cray to store the standard output in the file temp. out. 

Line 4 causes any system error messages to be included in the standard output file. 

Line 5 gives the name of the job as EXAMPLE. 

Line 6 causes the Bourne shell to be used for this job. 

Line 7 causes your UNICOS commands to be printed as part of the output runstream. 

Line 8 tells the Cray to begin keeping accounting information for later printing. 

Lines 9-14 create empty files (assuming they don't already exist) with the file names as shown. 

Lines 15-20 link these files with the indicated Fortran unit numbers. The files are thus the PLOT3D XYZ 
file, the PLOT3D Q file or CONTOUR plot file, the convergence history file, the output restart flow field 
and mesh files, and the scratch file used with the IPLOT = - 3 option. These lines implicitly open the files 
for input and output. Fortran OPEN statements are not used in Proteus. If the Proteus input is such that 
any of these files are unnecessary (see Table 6-1), then the touch and In for those files can be eliminated. 

Line 21 links an existing computational coordinate system file with Fortran unit 7. If the input parameter 
NGEOM 4- 10, this line should be eliminated. If a restart case is being run (IREST = 2 or 3), this line 
should be replaced by the following two lines: 

In rql fort. 11 
In rxl fort ^13 
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The above lines link existing input restart flow field and computational mesh flies with Fortran units 1 1 and 
13. 

Line 22 creates an executable file, p2d20.ex, from the existing object file p2d20.o . 

Line 23 actually runs the program. The standard Proteus input consists of all the records between line 23 
and line 24, which contains the marker "EOD". The input could also be obtained from a file on the Cray. 
In that case, line 23 should be replaced by: 

p2d20.ex < input 

where input is the name of the file, and line 24 should be eliminated.' 

Line 25 removes the named files. 

Line 26 causes various accounting information to be printed at the end of the output. 


8.3 MODIFYING THE MASTER FILE, FULL UPDATE 


This example shows how to run with a temporarily modified version of the master file. In this particular 
case, the existing master file is modified to increase the dimensioning parameters NIP and N2P, thus al- 
lowing more mesh points to be used. Since this affects almost every subroutine, the entire program is up- 
dated and recompiled. 


1 . 

2 . 

3. 

4 . 

5. 

6 . 

7. 

8 . 

9. 

10 . 
11 . 
12 . 

13. 

14. 

15. 

16. 

17. 

18. 

19. 

20 . 
21 . 
22 . 


23. 

24. 

25. 

26. 
27. 


# QSUB -1M l.OmW -IT 300 

# QSUB -mb -me 

# QSUB -o temp. out 

# QSUB -eo 

# QSUB -r EXAMPLE 

# QSUB -s /bin/sh 
set -x 

ja 

touch plotx 
touch plotq 
touch chist 
touch rq2 
touch rx2 
touch scrl 
In plotx fort. 8 
In plotq f ort . 9 
In chist fort. 10 
In rq2 fort. 12 
In rx2 fort. 14 
In scrl fort. 20 
In coords fort.7 
cat > mods << EOF 
*id temp 
Xd paramsl.20 

parameter (nip =81, n2p = 81) 

EOF 

update -p p2d20.u -i mods -c temp -f 
cft77 -d pq -o aggress temp.f 
segldr -o temp. ex temp . o 
temp. ex << EOD 


Standard Proteus input fde goes here 

28. EOD 

29. rm scrl mods temp.f temp.o temp. ex 

30. ja -cslt 


Lines 1 through 21 are the same as in the example in Section 8.2. 

Line 22 creates a Cray file called mods. The file will consist of all the records between line 22 and line 23, 
which contains the marker "EOF". Your Cray UPDATE directives and new code should therefore be in- 
serted between lines 22 and 23. The UPDATE directives and new code could also be obtained from a file 
on the Cray. In that case, lines 22 and 23 should be eliminated. 
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Line 24 uses the Cray UPDATE facility to create a file called temp.f which contains the complete Fortran 
code for the modified version of Proteus. The update command uses as input the existing Proteus program 
library p2d20.u, and the file mods containing the UPDATE directives and new code. 

Line 25 compiles the modified program temp.f, storing the object code in the file tefnp.o . 

Line 26 creates an executable file, temp. ex, from the object file temp.o. 

Line 27 actually runs the program. The standard Proteus input consists of all the records between line 27 
and line 28, which contains the marker "TOD"'. The input could also be obtained from a file on the Cray. 
In that case, line 27 should be replaced by: 

temp. ex < input 

where input is the name of the file, and line 28 should be eliminated. 

Line 29 removes the named files. 

Line 30 causes various accounting information to be printed at the end of your output. 

8.4 MODIFYING THE MASTER FILE, PARTIAL UPDATE 

This example shows how to run with temporarily modified versions of just a few routines. In this par- 
ticular case, the default version of subroutine INIT is replaced by a user-supplied version, and an additional 
user- supplied geometry option is added to subroutine GEOM. Since these changes affect only INIT and 
GEOM, only these subroutines are updated and recompiled. 

1. # QSUB -1M 1.0'mtf 'IT 60 

2. # QSUB -mb -me 

3. # QSUB -o temp. out 

4. # QSUB -eo 

5. # QSUB -r EXAMPLE 

6. # QSUB -s /bin/sh 

7. set -x 

8 . ja 

9. touch plotx 

10. touch plotq 

11. touch chist 

12. touch rq2 

13 . touch rx2 

14. touch scrl 

15. In plotx fort. 8 

16. In plotq fort. 9 

17. In chist fort. 10 

18. In rq2 fort. 12 

19. In rx2 fort. 14 

20. In scrl fort. 20 

21. In coords fort. 7 

22. cat > mods << EOF 
*id temp 

fcpurgedk init * 

*deck init 

User-supplied version of INIT goes here, 

*i geom.95 

New user- supplied geometry option goes here 

23. EOF 

24. update -p p2d20.u -i mods -c temp -q geom init 

25. cft77 -d pq -o aggress temp.f 

26. segldr -o temp. ex temp.o p2d20.o 

27. temp. ex << EOD 

Standard Proteus input file goes here 

28. EOD 
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29 . rm scrl mods temp.f temp.o temp. ex 

30 . ja -cslt 

Lines 1 through 21 are the same as in the example in Section 8.2. 

Line 22 creates a Cray file called mods. The file will consist of all the records between line 22 and line 23, 
which contains the marker "EOF". Your Cray UPDATE directives and new code should therefore be in- 
serted between lines 22 and 23. The UPDATE directives and new code could also be obtained from a tile 
on the Cray. In that case, lines 22 and 23 should be eliminated. 

Line 24 uses the Cray UPDATE facility to create a file called temp.f, which contains the Fortran code for 
the modified versions of subroutines GEOM and INIT. The update command uses as input the existing 
Proteus program library p2d20.u, and the file mods containing the UPDATE directives and new code. 

Line 25 compiles the modified versions of GEOM and INIT, contained in the file temp.f, storing the object 
code in the file temp.o. 

Line 26 creates an executable file, temp. ex, from the object file temp.o containing the modified versions of 
GEOM and INIT, and from the existing object file p2d20.o. 

Line 27 actually runs the program. The standard Proteus input consists of all the records between line 27 
and line 28, which contains the marker "EOD". The input could also be obtained from a file on the Cray. 
In that case, line 27 should be replaced by: 

temp. ex < input 

where input is the name of the file, and line 28 should be eliminated. 

Line 29 removes the named files. 

T ine 30 causes various accounting information to be printed at the end of your output. 
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9.0 TEST CASES 


In this section, four test cases are described in detail. The first, developing Couette flow, is a time- 
accurate calculation of laminar flow generated in a channel by a moving wall. The second case is flow past 
a circular cylinder. Both inviscid and laminar viscous flow are computed. The third case is transonic tur- 
bulent flow in a converging- diverging channel. And the fourth case is turbulent flow over a flat plate, 
computed using both the Baldwin- Lomax algebraic turbulence model and the Chien two-equation turbu- 
lence model. The discussion of each test case includes a description of the problem, listings of the Proteus 
input file and the JCL, a description of the standard Proteus output, and figures illustrating the computed 
results. All the cases were run using version 2.0 of the Proteus code on the NASA Lewis Cray Y-MP, 
running UNICOS 6.0, and Release 4.0.3 of CFT77. 

9.1 DEVELOPING COUETTE FLOW 

Problem Description 

Couette flow is incompressible laminar flow between two infinite parallel walls, one at rest and one 
moving with velocity u w- For dpld-x = 0, the steady-state velocity profile is linear, as shown in Figure 9.1. 
In this test case the time-development of this flow was computed by starting with u = 0 everywhere, and 
suddenly accelerating the top wall to u = w*. 





Figure 9.1 - Steady Couette flow with dpjdx = 0. 

Reference Conditions 

When setting up a problem for Proteus , it's usually convenient to first fix the reference conditions. For 
this case, an obvious choice for the reference length Lr was the distance h between the two walls, which 
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we set equal to 1 ft. Standard sea level conditions of 519 °R and 0.07645 lb m /ft 3 were used for the reference 
temperature and density. Since Proteus is a compressible code, incompressible conditions must be simu- 
lated by running at a low Mach number. We therefore set the reference Mach number M r = 0.1. The ref- 
erence velocity Ur was then computed by Proteus from M r . In setting up the boundary conditions, described 
below, the velocity at the top wall was set equal to 1. Therefore, Ur — u w = 0.15, where a is the dimensional 
speed of sound. In order to reach steady state within a relatively small number of time steps, the reference 
Reynolds number Re r was set equal to 100.0. 

Computational Coordinates 

For this problem a simple Cartesian computational coordinate system can be used. As shown in Figure 
9.1, the physical (x-y) and computational (£-*?) coordinates are thus in the same directions. Since Lr = h, 
the coordinate limits in the y direction were y min = 0 and y max = 1. The solution does not depend on.*, so 
any limits could have been used in the * direction. Convenient values were x m « = 0 and = 1. 

Initial Conditions 

Constant stagnation enthalpy was assumed, so only three initial conditions were required. They were 
simply u = v — 0 and p = 1 everywhere in the flow field. 

Boundary Conditions 

Similarly, only three boundary conditions were required at each computational boundary. Since the 
solution is independent of x, constant pressure and zero velocity gradient conditions were set at | — 0 and 
£ = 1. At both walls, the y-velocity and the normal pressure gradient were set equal to zero. The 
x-velocity was set equal to zero at the lower wall and 1 at the top wall. These conditions are summarized 
in the following table. 


Boundary Boundary Conditions 

| = 0 duldt = dvjdl = 0, p = 1 

£= 1 dujdt = dv/<9£ = 0,/> = 1 

rj = 0 w = v = 0, dp/ dr] — 0 
rj = 1 1, V = 0, dpjdrj = 0 

Proteus JCL and Input File 

The Cray UNICOS job control language used for this case is listed below, including the namelist input. 
Note that since the defaults for IVOUT(4) and IYOUT(5) are 30 and 40, they are set to zero in namelist 
IO to avoid printout of the static pressure and temperature. The time levels specified for the printout and 
plot files correspond to the time values used in a plot of an exact solution to this problem given by 
Schlichting (1968). Since the solution should not depend on x, only 11 points are used in the f direction, 
and results are printed at only three £ indices. In namelist FLOW, the only specified reference conditions 
are MACHR and RER, since the desired values for the remaining ones are the same as the default values. 
ILAMV is defaulted, resulting in constant viscosity p and thermal conductivity k . In namelist BC, the JBC 
values corresponding to derivative boundary conditions are positive, specifying that two-point one-sided 
differences are to be used. In namelist NUM, the parameters IPACK and SQ are defaulted, which results 
in an evenly spaced mesh in both directions. The artificial viscosity is turned off because of the low 
Reynolds number. The second-order three-point backward-implicit time differencing scheme is being used 
because we want an accurate unsteady solution. 31 The time step size DT in namelist TIME is simply half 
of the first time value in the plot of the exact solution mentioned above, and corresponds to a CFL number 
of about 44. 32 


31 It should be noted, however, that the incompressible governing equation for this flow is linear. It turns out that 
even first-order Euler -implicit time differencing gives accurate unsteady results. 

32 Smaller time steps were originally used, but it was found that equally good results could be obtained for this case 
with the input value shown here. 
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The input includes a brief explanation of each line, and should be compared with the detailed input 
description in Section 3.0. This JCL is essentially the same as the example presented in Section 8.2, but 
with lines eliminated that are not applicable to this case. 


# QSUB -1M l.OmW -IT 60 

# QSUB -mb -me 

# QSUB -o temp. out 

# QSUB -eo 

# QSUB -r cform 

# QSUB -s /bin/sh 
set -x 

da 

touch plotx 

touch plotq 

touch chist 

touch scrl 

In plotx fort. 8 

In plotq fort. 9 

In chist fort. 10 

In scrl fort. 20 

segldr -o temp. ex p2d20.o 

temp. ex << EOD 

Unsteady Developing Couette Flow 
Srstrt Not a restart case. 

Send 
Sio 


ivout=l ,2,32,47*0, 
iprta=l , 3 , 9 , 33,73,129 , 
iprtla= 1 , 6 , 11 , iprt2=l, 
iplot=-3 , 

iplta=3 , 9 , 33 , 73 , 129 , 

Send 
Sgmtry 
ngeom=l , 

xmin=0.0, xmax=l.Q, 
ymin=0.0, ymax=1.0. 

Send 
Sf low 
ihstag=l , 

machr=.l, rer=100., 
gamr=l . 4 , 

Send 

Sbc 

jbclCl, 11=41, jbclCl ,21=41 , 
jbcl (2, 11=12, jbcl(2, 21=12, 
jbcl(3, 11=22, jbcl(3,2)=22, 
jbc2Cl, 11=42, jbc2(l, 21=42, 
jbc2C2, 11=11, jbc2( 2,21=11, 
jbc2C3, 11=21, jbc2(3, 21=21, 
Send 
Snum 

nl=ll , n2=21 , 

iav4e=0, iav2e=0, iav2i=0, 
thc= 1 .0,0.5, 
thx=l .0,0. 5, 1.0, 
thy=l . 0 , 0 . 5, 1 . 0 , 

Send 

Stime 


Print u, v, c p . 

Time levels for printout . 

Print at 3 £ indices, all rj indices . 
Write PLOT 3D j PL A NES plot files . 
Time levels for plot file . 


Cartesian computational coordinates . 
x-coordinate limits, 
y- coordinate limits. 

Constant stagnation enthalpy . 

Set Mr and Re r . 

Constant specific heats. 


gbclCl , 11=1 . 
gbcl C 2,11 = 0. 
gbcl (3 , 11=0. 
gbc2( 1 ,11=0. 
gbc2C 2 ,11 = 0. 
gbc2(3, 1 1=0 . 


gbclCl ,21=1 . 
gbcl(2,21=0. 
gbcl (3, 21=0 . 
gbc2( 1 , 21=0 . 
gbc2(2, 21=1 . 
gbc2( 3,21=0 . 


/>= 1 at£ = 0, 1. 
du/dd, = 0 at l = 0, 1. 
3v/3£ = 0af£ = 0, 1. 
dpi dr] = 0 at rj = 0, 1. 
u = 0, 1 at fj = 0, 1. 
v = 0 at fj = 0, 1. 


Use an 11 x 21 mesh. 

No artificial viscosity. 

Second- order time differencing. 


idtmod=1000 , 
idtau=3, dt=. 1953125, 
ntime=1000 , 

Send 


Don't recompute At. 
Constant global At. 
Limit of 1000 time steps. 


Sturb Laminar flow. 

Send 

Sic Use default initial conditions. 
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Send 

EOD 

rm scrl temp. ex 
ja -cslt 

Standard Proteus Output 

The output listing is shown below. In the flow field printout, only the last time level is included. Note 
that a converged solution is obtained at time level 350, and that this level is automatically included in the 
standard output and in the plot file. 

NASA Lewis Research Center 
Internal Fluid Mechanics Division 
2-d Proteus version 2.0 
January 1992 


Unsteady Developing Couette Flow 

SRSTRT I REST = 0, NRQIN = 11, K*Q0UT = 12, NRXIN * 13, NRXOUT * 14, SEND 
SIO IDEBUG = 20-0, TPLOT = -3, IPLT = 0, IPLTA = 3, 9, 33, 73, 

3, 9, 33, 73, 129, 95-0, IPRT1A = 1, 6, 11, 46-0, IPRT2A = 1 

15, 16, 17, 16, 19, 20, 21, 30-0, IUNITS = 0, IVOUT = 1, 2, 

WIST * 10, NHMAX * 100, NOUT = 6, NPlOT = 9, NPLOTX = 6, NSCR1 * 

SGMTRY IAXI = 0, NCEOM * 1, RMAX = 1.0, RMlN = 0.0, THMAX = 90.0, 

YMIN = 0.0, SEND 

8FLOW GAMR = 1.4, HSTAGft = 0.0, ICVARS = 2, IEULER = 0, IHSTAG = 1, ILAHV = 0, 

LR = 1.0, MACHR = 0.1, MUR = 0.0, PRLR * 0-0, RER = 100.0, RG = 1716.0, RHOR 

SBC FBCi = 406-0.0, FBC2 = 406-0.0, FBCT1 =- 204-0.0, FBCT2 = 204-0.0, GBC1 

GTBC1 = 80-0.0, CTBC2 = 80-0.0, IBC1 
51-0, 51-10, JBC1 = 41, 12, 22, 0, 41, 12 

JTBC2 


129, 

96-0, 

IPRT = 1, IPRT1 = 1, 

IPRT2 = 1, 

IPRTA = 1, 

, 2, 

3, 4, 

5, 6, 7, 8, 9, 

10, 11, 12, 

13, 14, 

32, 

47-0, 

IWOUT1 = 2-0, IWOUT2 

* 2-0, NGRID 

= 7, 

20, 

SEND 




THMIN =“0.0, 

, XMAX = 1.0, XMIN = 

0.0, YMAX = 

1.0, 


2-0.0, GBCT1 = 4-0.0, GBCT2 » 4*0.0 
51-0, 51-10, IBCT2 = 51-0, 51-10, 

11, 21, 0, JBCT1 - 0, 10, 0, 10 

NTBC = 0, NTBCA = 10-0, SEND 
SNUM CAVS2E = 4-1.0, CAVS21 = 4-2.0 
SQ = 2-0.0, 2-10000.0, THC = 1.0, 

1.0, THZ * 1.0, 2-0.0, SEND 


JBCT2 =0, 10, 


10 , 


JTBC1 = 6-0, 


ISWIRL = 0, ITHIN = 2-0, KTR * 0.0, 
7.645E-02, TR = 519.0, UR = 0.0, SEND 
1.0, 3-0.0, l.'O, 3-0.0, GBC2 = 5*0.0, 1.0, 

406-0, IBC2 = 408-0, IBCT1 = 51-0, 51-10, 

22, 0, JBC2 * 42, II, 21, 0, 42, 

6-0, KBC1 = 2-0, KBC2 = 2-0, 


CAVS4E = 4-1.0, 
0.5, 0.0, THE = 


IAV2E = 0, 

1 . 0 , 2 - 0 . 0 , 


IAV2I 

THKE 


0, IAV4E = 0, IPACK = 2-0, 
1.0, 0.0, THX = 1.0, 0.5, 


N1 * 

1 . 0 , 


11, N2 = 21, 

THY = 1.0, 0.5, 


CFLMAX = 10.0, CFLMfN = 0.5, CHGl = 4.0E-02, CHG2 = 6.0E-02, DT = 0.1953125, 
DTHAX = 1.0E-02, DTMIN = 1 . 0E-02, EPS * 4-1.0E-03, ICHECK = 10, ICTEST ■ 3, IDTAU = 
NITAVG = 10, NT I ME = 1000, 9-0, NTSEQ = 1, TLIM = 20.0, SEND 


STIME CFL = 10-1.0, 

DTF2 = 1.25, 

NDTCYC * 2, 

STURB APLUS =26.0, CB = 5.5, 
CNL = 1.7, CONE = 1.35, CTWOR 
ITURB = 0, ITXI = 1, XWALll 
NTKE =1, PUT * 0.91, 


9*1 . 0E-02, DTF1 * 
3, IDTMOD = 1000, 


1.25, 


CCLAU = 1.68E-02, CCP = 1.6, CKLEB = 0.3, CKHIN = 0.0, CMUR = 9.0E-02, CNA = 2.0, 

= 1.8, C THREE = 1.15E-02, CVK = 0.4, CWK = 0.25, ILDAHP = 0, INNER = 1, ITETA * 0, 
2--1 , IWALL2 = 2»-l, LWALL 1 * -1, 50-0, -1, 50-0, LWALL2 = -1, 50-0, -1, 50-0, 

REXT1 * 0.0, REXT2 = 0.0, TFACT = 1.0, SEND 


Normalizing conditions 

Length, lr * 1.0000E*00 
Velocity, ur * 1.1166E*02 
Temperature, tr * 5-1900E*02 
Density, rhor * 7.6450E-02 
Viscosity, mur = 8-5366E-02 
Thermal conductivity, ktr * 1.0192E-01 
Pressure, rhor-ur--2 = 9.5321E+02 
Energy/*ol. , rhor*ur--2 « 9.5321E*02 
Gas constant, ur--2/tr - 2.4024E+01 
Specific heat, ur""2/tr * 2.4024E*01 
Stagnation enthalpy, ur--2 = 1.2468E*04 
Time, lr/ur * 8.9556E-03 


ft 

ft/sec 

deg R 

lbm/f t3 

lbm/f t-sec 

lbm-f t/sec3-deg R 

lbm/f t-sec2 

lbm/f t-sec2 

ft2/sec2-deg R 

ft2/sec2-deg R 

ft2/s«c2 

sec 


Reference conditions 

Reynolds number, rer 
Mach number, machr 
Specific heat ratio, gamr 
Laminar Prandtl number, prlr 
Reference" Prandtl number, prr 
Specific heat at const, press. 

Specific heat at const, vol. 

Gas constant, rg 
Pressure, pr 

Stagnation enthalpy, hstagr 
SIC P0 = 1.0, TO = 1.0, U0 = 0.0, V0 = 0.0, W0 


1 . 00 0 0E* 02 
1 . OOOOE-Ol 
1 .4000E+00 
5. 03Q6E*03 
2. 0122E+01 

6.0060E+03 ft2/sec2-deg 
4 . 2900E+03 ft2/sec2-deg 
I.7160E-03 ft2/sec2-deg 
2.1162E+03 lbf/ft2 
3. 1233E+06 ft2/sec2 


0 . 0 , 


Boundary condition parameters 


jbcl (1,1) * 

41 

gbcl (1,1) * 

1 . OOOOE+OO 

jbcl (2, 1 ) = 

12 

gbcl(2,l) = 

0 . 000 OE+OO 

Jbcl (3,1 ) = 

22 

gbcl (3, 1) = 

0. OOOOE^OO 


Jbc2(l,2) 

s 

42 

gbc2(l ,2) 

= 

0. OOOOE*OD 

Jbc2( 2, 2) 

= 

11 

gbc2( 2, 2) 

= 

1 . 0 OOOE+OO 

jbc2(3,2) 

- 

21 

gbc2( 3, 2) 

= 

0. 000QE+00 

jbc2CI,l) 

_ 

42 

gbc2( 1 , 1 ) 

_ 

O.OOOOE^OO 

Jbc2(2, 1 ) 

= 

11 

gbc2( 2, 1 ) 

= 

0. OOOOE-OQ 

jbc2C3,l) 

= 

21 

gbc2(3, 1 } 

= 

0. 0 00OE+00 


Jbcl ( 1,2) = 

41 

gbc 1(1,2) = 

1 .00Q0E*00 

jbcl (2,2) = 

12 

gbcl(2,2> * 

0. OOQOE^OO 

jbcl (3,2) * 

22 

gbc 1 (3, 21 = 

o. ooooe* 0 o 


x-velocity 


at time level 350, time = 6.1045E-01 sec, dtime = 1.7491E-03 sec 


ixi 

= 1 

6 

11 

ieta 

21 

1.0000E+00 

1 . 0 000E+ 00 

1 . 0 OOOE+OO 

20 

9.4988E-01 

9 . 4988E-01 

9 . 4988E-01 

19 

6.9976E-01 

8.9977E-01 

8 . 9977E-01 

16 

8.4966E-01 

6.496&E-01 

8. 4965E-0Z 

17 

7.9956E-01 

7 . 9955E-01 

7 , 9955E-0I 

16 

7.4947E-01 

7 . 4946E-01 

7 . 4946E-01 
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15 

6.9939E-01 

6 . 9939E-01 

14 

6.4933E-01 

6.4932E-01 

13 

5.9928E-01 

5. 9928E-01 

12 

5 . 4925E-01 

5.4925E-01 

11 

4.9924E-01 

4.9924E-01 

10 

4.4925E-01 

4. 4925E- 01 

9 

3.9927E-01 

3 . 9927E- 0 1 

8 

3.4932E-01 

3.4932E-01 

7 

2. 9938E- 0 1 

2 . 9938E- 0 1 

6 

2.4946E-01 

2.4946E-01 

5 

1 . 9955E-Q1 

1 .9955E-01 

4 

1 .4965E-01 

1 .4965E-01 

3 

9 . 9762E- 02 

9 . 9763E-02 

2 

4.9880E-02 

4.9880E-02 

1 

0 . OOOOE+OO 

0 . OOOOE*GO 


y or r-v«locity at time 


6.9938E-01 
6.4932E-01 
5.9928E-01 
5. 4925E-01 
4.9924E-01 
4 .4925E-01 
3.9927E-01 
3.4932E-01 
2.9938E-01 
2.4946E-01 
1 . 9955E-0 1 
1.4965E-01 
9.9765E-02 
4.9881E-02 
0 . OOOOE+OO 

level 350 , ti mt = 6.1045E-01 


sec, dtlmt = 1.7491E-03 sec 


lxl = 1 

lets 

21 0. OOOOE* 00 0. 

20 -1.7459E-08 1. 

19 -8.5587E-08 5. 

18 -1.1763E-07 7. 

17 -1.3302E-07 6. 

16 -1.2631E-07 3. 

15 -1.141DE-07 -1. 

14 -7.6428E-08 -7. 

13 -3.2256E-08 -1. 

12 2.4966E-08 -1. 

11 7.3243E-08 -2. 

10 1 - 1215E-07 -2. 

9 1 . 3336E-07 -2. 

8 1 . 4573E- 07 -2. 

7 1.4912E-07 -2, 

6 1.5303E-07 -1 . 

5 1.50S1E-07 -1. 

4 1.4102E-07 -8. 

3 1.01 25E - 0 7 -4. 

2 4.6214E-08 -1. 

1 0 . Q000E* 00 0. 

Static press, coeff. 

lxl = 1 

leta 

21 -2.0258E-02 -1. 

20 -1.8190E-12 -1. 

19 -6.3665E-12 -1- 

18 -1.3642E-11 -1. 

17 -2. 2737E- 1 1 -1. 

16 -3.2742E-11 -1. 

15 -4.2746E-11 -1. 

14 -5.2751E-11 -1. 

13 -5.9117E-U -1. 

12 -6.3665E-11 -l. 

11 -6.4574E-11 -l. 
10 -6 . 2755E-1 1 -1. 

9 -6 . Q027E-11 -1. 

8 *5. 1841E- 1 1 -1. 

7 -4.2746E-11 -1. 

6 -3.3651E-11 -l. 

5 -2.3647E-11 -1. 

4 -1.3642E-11 -1. 

3 -6.3665E-12 -1. 

2 -1.8190E-12 -I. 
1 -2.0246E-02 -1 . 


6 11 

OOOOE*00 0 . 0000E+00 
9716E-07 -1.5651E-07 
3278E-07 -3 . 3265E- 07 
3490E-07 -4 . 7745E-07 
3559E-07 -5. 4990E-07 
0707E-07 -5.7216E-07 
7391E-07 -5. 1893E-07 
0845E-07 -4. 1549E-07 
2344E-06 -2.7445E-07 
6908E-06 -1 . 3457E- 07 
0388E-06 -1.2009E-08 
2514E-06 7 . 3234E- 08 

3171E-06 1.2360E-07 

2416E-06 1.3875E-07 

0330E-06 1.3171E-07 

7189E-06 1.0759E-07 

3164E-06 7 . 4553E-08 

7928E-07 3.5631E-08 

4715E-07 -4.8475E-09 
3386E-07 -1 . 6290E-08 
000DE+00 0. OOOOE *00 

st time level 350, 

6 11 

9536E-02 -2 . 0259E- 02 
9536E-02 -9 . 0949E- 1 3 
9536E-02 -6.3665E-12 
9536E-02 -1.4552E-11 
9536E-02 -2.2737E-11 
9536E-02 -3.1832E-1I 
9536E-02 -4 . 2746E-1 1 
9536E-02 -5 . 2751E-1 I 
9536E-02 -5.9117E-U 
9536E-02 -6 . 2755E- 1 1 
9536E-02 -6.4574E-U 
9536E-02 -6.3665E-U 
9536E-02 -5.911 7E-1 1 
9537E-02 -5 . 2751E- 1 1 
9537E-02 -4 . 3656E- 1 1 
9537E-02 -3.2742E-11 
9537E-02 -2 . 1828E- 1 1 
9537E-02 -1 .3642E-11 
9537E-02 -7.2760E-12 
9537E-02 -9.0949E-13 
9537E-02 -2.0246E-02 


time 


6.1045E-01 sec, dt ime = 1.7491E-03 sec 


mark Conversed solution at time level 350 
STOP (called by MAIN ) 


This case used 4.6 seconds of CPU time. 


Computed Results 

As noted earlier, an exact solution exists for this problem (Schlichting, 1968). The solution is in the 
form of a series of complementary error functions, and is given by 33 



^ erfc[(2fl+ l)^j - 
n = 0 

erfc((^> 1 — <f>) — erfc^! 


oo 

41 erfc[(2« + 1)4 \ + 41 

n = 0 

+ 4>) 4- erfc(3<^» 1 — <f>) — erfc(3<^ 1 4- <f>) H 


where 


33 The solution presented by Schlichting is actually for a stationary top wall and moving bottom wall. The solution 
presented here, for a stationary bottom wall and moving top wall, was derived from it by replacing y with h—y. 


Proteus 2-D User's Guide 


9.0 Test Cases 91 




The results computed using Proteus, are compared with the exact solution in Figure 9.2. Tlie results are 
plotted at times corresponding to A-Jvt jhJ~Re r = 0.25, 0.5, 1.0, 1.5, and 2.0, plus the steady state solution. 



velocity u/iwr 

Figure 9.2 - Computed and exact solutions for developing Couette flow. 
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9.2 FLOW PAST A CIRCULAR CYLINDER 


Problem Description 

In the second test case, steady flow past a two-dimensional circular cylinder was investigated. Both 
Euler and viscous flow were computed. The geometric configuration (not to scale) is shown in Figure 9.3. 



Figure 9.3 - Flow past a circular cylinder. 


Reference Conditions 

The cylinder radius was used as the reference length L,, and was set equal to 1 ft. Standard sea level 
conditions of 519 °R and 0.07645 lb m /ft 3 were used for the reference temperature and density. In order to 
allow comparison of the Proteus results with incompressible experimental data and with potential flow re- 
sults, the reference Mach number M, was set to the low value of 0.2. The reference velocity u r was then 
computed by Proteus from M r . The experimental data were taken at a Reynolds number based on cylinder 
diameter of 40. Since our reference length was the cylinder radius, the reference Reynolds number Re r was 
20 . 

Computational Coordinates 

For this problem a polar computational coordinate system was the obvious choice. Figure 9.3 shows 
the relationship between the physical Cartesian {x-y), physical polar (r-0), and computational (Z-rj) coor- 
dinates. The coordinate limits in the r direction were r min — 1 and r max = 30. Since the flow is symmetric 
about the x axis, only the top half of the flow field was computed. The limits in the 9 direction were thus 
9 nin = 0° and B max =180°. The £ = 0 and £ = 1 boundaries thus correspond to the 9 = 0° and 9 = 180° 
boundaries, respectively. The tj = 0 and rj = 1 boundaries correspond to the r— 1 and r= 30 boundaries. 
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Initial Conditions 


Constant stagnation enthalpy was assumed, so only three initial conditions were required. For the Euler 
flow case, uniform flow with u = 1, v = 0, and p = 1 was used. 


For the viscous flow case, the exact potential flow solution was used to set the initial conditions at all 
the non-wall points. Thus, with nondimensional free stream conditions of p x = n,,, = = 1, 

u= 1 — y cos(20) 
r 

v = — — sin(2 8) 

T 


P ~ (Pt) oo 


2 R 


where 


(Pt) oo 


1 

2 /? 


Note that the nondimensional gas constant R appears in the above equations. This is a result of 
nondimensionalizing the initial condition for pressure by the reference pressure p r = p r R T r . (See Section 
3.1.1). At the cylinder surface, we set the velocities u and v equal to zero, and the pressure p equal to the 
pressure at the grid point adjacent to the surface. Thus, with two-point one-sided differencing, dpjdn = 0 
at the surface. 


Boundary Conditions 


Again, since we assumed constant stagnation enthalpy, only three boundary conditions were required 
at each computational boundary. For the Euler flow case, symmetry conditions were used at £ = 0 and 
£ = 1. At = 0, the cylinder surface, the radial velocity and the radial gradient of the circumferential ve- 
locity were set equal to zero. The radial gradient of pressure was computed from the polar coordinate form 
of the incompressible radial momentum equation written at the wall. The equation is (Hughes and 
Gaylord, 1964) 


dv r pv e dv r 
pVr dr + r ee 



8p_ 

dr 


where v r and are the radial and circumferential velocities, respectively. At the cylinder surface, v r — 0. 
Thus, at v\ = 0, 


dp 

dr 


= P 



2 


This must be transformed into computational coordinates using 


dp dp drj dp d£ 

dr ~ dtj dr + dl dr 


With the computational coordinate system being used for this problem, dtjdr= 0. The boundary condition 
in computational coordinates was thus 


dp pvp / \ 

dr, ~ r \ dr ) 
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where, since * = r cos 0 and y — r sin 0, 


dy _ dx_ dr i fy 

dr dx dr dy dr 

dr] drj. 

= -r— cos 6 + -z— sin 8 
dx dy 

And finally, at r\ = 1 the free stream conditions were specified as boundary conditions. These conditions 
are summarized in the following table. 

Boundary Boundary Conditions 

£ = 0 duldZ,v = 0,dpldS = 0 

\ = 1 du/dl , v = 0, dpjdl = 0 

r] = 0 V r = 0, d Veldt] = 0, dpldt] = pviKrdtildr) 

rj = 1 w=l,v = 0, />=1 


For the viscous flow case, symmetry conditions were again used at £ = 0 and £ = 1. At t] = 0, the cyl- 
inder surface, no-slip conditions were used for the velocity, and the radial pressure gradient was set equal 
to zero. The outer boundary, at rj = 1, was split into an inlet region and wake region. The split was made, 
somewhat arbitrarily, at 8 - 45°. In the inlet region, the boundary values of u, v, and p were kept at their 
initial values, which were the potential flow values. In the wake region, the boundary values of p were kept 
at their initial values, and the radial gradients of u and v were set equal to zero. These conditions are 
summarized in the following table. 

Boundary Boundary Conditions 


£ “ 0 
{*1 


y = 0 

y] — 1 (inlet) 
rj = 1 (wake) 


<3w/d£, v= 0, dpjd£ = 0 
dujdl, v= 0, dpjdi — 0 
u = v = 0, dpldrj = 0 
Au = Av = A/j = 0 
dujdt] = dvldtj — 0, Ap = 0 


Proteus JCL and Input Pile for Euler Flow Case 

The Cray UNICOS job control language used for the Euler flow case is listed below, including the 
namelist input. In this test case, we are making a temporary change to the code by supplying a new version 
of subroutine BCFLIN to implement the boundary condition for pressure at the cylinder surface. BCFLIN 
is used in conjunction with subroutine BCF for writing boundary conditions that are not among those al- 
ready built into the code. These routines are described in detail in Volume 3. For the current case, we set 
F — p , dFjdp = dp\dp , etc. FBC, the boundary condition value, is set equal to pviKrdrjjdr ). In namelist 
IO, setting IPRT equal to a number larger than the number of time steps to be taken results in a printout 
at the initial and final time levels only. 

The input includes a brief explanation of each line, and should be compared with the detailed input 
description in Section 3.0. This JCL is essentially the same as the example presented in Section 8.4, but 
with lines eliminated that are not applicable to this case. 

# QSUB -1M l.OmW -IT 60 

# QSUB -mb -me 

# QSUB -o temp. out 

# QSUB -eo 

f QSUB -r cylpf 

# QSUB -s /bin/sh 
set -x 

ja 

touch plotx 
touch plotq 
touch chist 
In plotx fort. 8 
In plotq fort. 9 
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In chist fort. 10 
cat > mods << EOM 
xident mods 
*purgedk bcflin 
Xdk bcflin 

subroutine bcflin (ibc, ieq, ibound , imin,imax, f ,dfdrho,df dru,df drv, 

$ df drw , df de t , f bcm , f bcp , f be ) 

c 

c Purpose: This is a user-supplied subroutine used in conjunction 

c with the general boundary condition routine bef Cjbc 

c or ibc options 90*99). It computes the values needed 

c for linearization of the boundary condition (i.e., the 

c values of the function f and its derivatives wrt the 

c dependent variables) . Note that different user-supplied 

c boundary conditions can be used at different boundaries 

c through use of the values of isweep, ieq, and ibound. 

c 

c This version sets the pressure boundary condition at the 

c surface for inviscid flow over a circular cylinder. The 

c pressure gradient in the radial direction is set equal 

c to the curvature term, rho*vtheta**2/r , in the radial 

c momentum equation. In computational coordinates, the 

c b. c. is dp/deta s rho*vtheta**2/(r*deta/dr ) . 

c 

c Called by: bef 

c 

c Calls: 

c 

c Input required: 

c 

c dpdrho , dpdru, - derivatives of pressure with respect to 

c dpdrv, dpdet, rho, rho*u, rho*v, et, and rho*w 

c dpdrw 

c 

c etax, etay - metrics of grid transf ormation Ci.e., 

c derivatives of eta wrt x and y) 

c 

c ibc - boundary condition type for current sweep direction 

c 

c ibound - flag specifying boundary; 1 for lower, 2 for upper 

c (in this application, bcflin will only be called 

c during the second sweep, and with ibound = 1) 

c 

c ieq - boundary condition equation number (1 to neq) 

c 

c imin, imax - minimum and maximum indices in sweep direction 

c 

c il - current grid point in the xi direction 

c 

c p - static pressure 

c 

c rho, u, v - density, x-velocity, and y-velocity 

c 

c x, y - cartesian coordinates 

c 

c Output computed: 

c 

c dfdrho(iw) , dfdruCiw), - derivatives of p with respect to 

c dfdrv(iw), dfdetCiw), rho, rho*u, rho*v, et, and rho*w 

c dfdrw(iw) 

c 

c f(iw) - values of pressure at boundary (iw = 1), at first 

c point away from boundary Ciw = 2), and at second 

c point away from boundary Ciw = 3) 

c 

c fbc - boundary condition values for current sweep direction 

c 

c Common blocks 

Xcall paramsl 
Xcall flowl 
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*call metricl 
^call numl 

dimension ibcCneqp ,nbc) ,fbc(neqp,nbc) 

dimension f ( 3 ) ; df drhoC 3 ) , dfdru ( 3 ) , df drv( 3 ) ; df drw( 3 ) , df det ( 3 ) 


c 

C' 

c* 

c 


-Set 


f, dfdrho, 
dependent 


etc., equal 
variables 


to pressure 


and its derivatives wrt 


do 10 
f Ciw) 


dfdrho(iw) 
df dru(iw) 
dfdrv(iw) 
df drw(iw) 
dfdet(iw) 
continue 


iw = 1,3 
= p(il,iw) 


dpdrhoC iw) 
dpdruC iw) 
dpdrvC iw) 
dpdrwCiw) 
dpdetCiw) 


-Set fbc equal to b. c. value 


10 
c 

C“ * 

radius = sqrt CxC i 1 , 1 )**2 + y(il,l)**2) 
theta = atan2(y ( il ,l),x(il,D) . 

detadr = etaxCil , 1 )*cos(theta) + etay( il , 1 )*sin(theta) 
vthsq = u(il,l)**2 + v(il,l)**2 

f be C ieq , ibound) = rho C il , 1 Xvthsq/radius/detadr 

return 

end 

EOM ^ . 

update -p p2d20.u -i mods -c temp -q bcflm 
cft77 -d pq -o aggress temp . f 
segldr -o temp. ex temp.o p2d20.o 
temp .'ex << EOD 

Euler Flow Past a Circular Cylinder 
Srstrt 
Send 
Sio 

ivout=l ,2,32,47*0, 
iprt=10000, 
iprtl=l, iprt2=2, 
iplot=3 , 

Send 
Sgmtry 
ngeom=2 , 

rmin=1.0, rmax=30.0, 
thmin=0.0, thmax=18Q.Q, 

Send 


Not a restart case. 


Print u, v, c p . 

Print every 10,000 time levels. 

Print at every £ index, every other y\ index. 
Write PLOT3D 3-D plot files. 

Polar computational coordinates, 
r- co ordinate limits. 

O-coordinate limits. 


Sf low 
ieuler=l , 
ihstag=l , 
machr=.2, rer=20 
gamr=l . 4 , 

Send 
Sbc 

jbcl Cl, 1 )=42 , 
jbcl C 2 , 1 ) = 12 , 
jbcl (3 , 1 )=21 , 
jbc2C 1 , 1 )=92, 


Euler flow calculation . 
Constant stagnation enthalpy . 
Set Mr and Re r . 

Constant specific heats. 


jbcl ( 1 , 2)=42 , 
jbcl(2,2)=12, 
jbcl (3, 2)=21 , 
jbc2( 1 , 2)=41 , 


jbc2(2 , 1 )=71 , 
jbc2(3 , 1)=77 , 


jbc2(2,2)=ll , 
jbc2C3,2)=21 , 


gbcl (1,1)=0., 
gbcl(2,l)=0 . , 
gbcl (3, 1 )=0 . , 
gbc2( 1 , 1 ) =0 . , 

gbc2(2 ,1 )=0 . , 

gbc2(3,l )=0 . , 


gbclC 1 , 2) = 0 . , 
gbcl(2,2)=0 . , 
gbcl(3,2)=0 . , 
gbc2C 1 , 2)=1 . , 

gbc2C2, 2) =1 . , 

gbc2(3 , 2) = 0 . , 


dpldt = 0 at ( = 0 , 1 . 
duldZ = 0at £ = 0 , 1 . 
v = 0 at £ = 0 , 1 . 
dp/dri = pvil(rdrjldr) f 
p = 1 at tj = 0 , 1 . 
K„ = 0, u = 1 
at m = 0, 1. 
dV t jdr} = 0, v = 0 
at t] = 0 , 1 . 


Send 

Snum 

nl=21, n2=51, 
ipack(2)=l , 

sq(2 , 1 ) =0 . , sqC 2 , 2) = 1 . 01 , 
Send 


Use a 21 x 51 mesh. 

Pack in rj direction. 

Pack moderately tightly near rj = 0. 
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Stime 

idtau=5, cf 1=10 . , 
ntime=1000 , 

Send 
fiturb 
Send 
Sic 
u0=l . , 

Send 

EOD 

rm mods temp.f temp.o temp . ex 
ja -cslt 


Spatially varying At. 
Limit of 1000 time steps . 

Laminar flow . 


Uniform flow initial conditions . 


Proteus JCL and Input File for Viscous Flow Case 

The Cray UNICOS job control language used for the viscous flow case is listed below, including the 
namelist input. In this case, we are making a temporary change to the code by supplying a new version 
of subroutine INIT to set the initial conditions described earlier. The procedure for using user- written initial 
conditions is described in Section 5.1. Note that we are also using subroutine INIT to set point-by-point 
boundary condition types and values at the outer (rj = 1) boundary, instead of specifying them in namelist 
BC. It's often easier to set point-by-point boundary conditions in Fortran rather than in the namelist input 
file. 


The input includes a brief explanation of each line, and should be compared with the detailed input 
description in Section 3.0. This JCL is essentially the same as the example presented in Section 8.4, but 
with lines eliminated that are not applicable to this case. 

# QSUB -1M 1 .OmW -IT 60 

# QSUB -mb -me 

# QSUB -o temp. out 

# QSUB -eo 

# QSUB -r cylv 

# QSUB -s /bin/sh 
set -x 

ja 

touch plotx 
touch plotq 
touch chist 
In plotx fort. 8 
In plotq fort. 9 
In chist fort. 10 
cat > mods << EOM 
xident newinit 
Xpurgedk init 
*deck init 

subroutine init 


c- Purpose: Set up initial flow field for viscous flow past a 

c circular cylinder. The exact potential flow solution 

c is used as the initial flow field, except at the 

c cylinder surface where the v el oc iti es and normal 

c pressure gradient are set equal to zero. This routine 

c is also used to set point-by-point boundary conditions 

c at the outer Ceta = 1) boundary. 

c • - 1 — 

c Called by: initc 

c 

c Calls: 

c 

c Input required: 

c 

c icvars - flag specifying which variables are being supplied 

c as initial conditions 

c 

c neq - number of coupled equations being solved 

c 

c nout - unit number for standard output 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

Xcall 

Xcall 

Xcall 

Xcall 

Xcall 

xcall 

Xcall 

c 

c 

c 


10 


nl , n2 - number of grid points in the xi and eta directions 

rgas - gas constant 

x, y - cartesian coordinates 


Output computed: 

ibc2(il , ieq, 2 ) , 
fbc2(il ,ieq,2) 


point - by ~ point boundary condition types 
and values at eta = 1 boundary (il = 1 to 
nl, ieq = 1 to 3) 


ibc2(ieq ,2) - surface boundary condition types at eta 
boundary (ieq = 1 to 3) 


p, u, v - initial flow field values of pressure, x-velocity, 
and y-velocity 


paramsl 
bcl 
f lowl 
gmtryl 
iol 

metricl 

numl 

Check for illegal icvars option (this routine assumes icvars = 2) 


if (icvars .ne. 2) then 
icvars = 2 

write (nout,10) _ _ _ . , - - . 

format (/' XXXX warning - icvars reset to 2 in sub. mit. ) 

endif 


c Set freestream conditions 

c 

uinf = 1 . 
rhoinf =1. 
tinf = 1- 

pinf = rhoinfxtinf 

ptinf = pinf + 0 . 5Xrhoinf Xuinf XX2/rgas 

gamma = 1.4 


c 

c 

c 

c 


100 


Set initial flow field around cylinder equal to exact potential 
flow solution 


do 100 i2 = 2,n2 
do 100 il = 1 ,nl 

radius = sqrt(x( il , i2)XX2 + y(il,i2)XX2) 

theta = atan2(y(il , i2) ,x(il j»i2) ) 

u(il,i2) = -(cos(2. 0Xtheta)/(radiusXX2) - 1 

v(il,i2) = -Csin(2.0Xthetal/(radiusXX2) 

p(il , i2) = ptinf ” 0 . 5Xrhoinfx( u(il ,i2lxx2 

continue 


. 0)Xuinf 
)Xuinf 

+ v(il,i2)XX2)/rgas 


c S e t n o-slip and zero gradient conditions at cylinder surface 

do 110 il = l,nl 
u(il,l) = 0.0 
v( il , 1 ) = 0.0 
p(il,l) = p(il>2) 

110 continue 

e-----*Set jbc = “1 for outer boundary to signal use of point-by-point 
boundary conditions 
c 

do 200 ieq = 1, neq 
jbc2(ieq,2) = -1 
200 continue 


c 
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c Set point-by-point boundary conditions at outer boundary 

c 

nwake = nl/4 

c In wake region 

do 210 il = 1, nwake 
ibc2(il,l,2) = 40 
ibc2(il,2,2) = 12 
ibc2(il,3,2) = 22 
fbc2(il,l,2) = 0. 
fbc2(il,2,2) = 0. 
fbc2C il ,3,2) = 0. 

210 continue 

c In inlet region 

do 220 il = nwake+l,nl 
ibc2C il ,1,2) = 40 
ibc2(il,2,2) = 10 
ibc2(il,3,2) = 20 
f bc2( il ,1,2) = 0. 
fbc2(il,2,2) = 0. 
fbc2Cil ,3,2) = 0. 

220 continue 

return 
end 

EOM 

update -p p2d20.u -i mods -c temp -q init 
cft77 -d pq -o aggress temp.f 
segldr -o temp. ex temp.o p2d20.o 
temp. ex << EQD 

VISCOUS FLOW PAST A CIRCULAR CYLINDER 
Srstrt Not a restart case . 

Send 

Sio 


ivout=l,2,32,47*0, 
iprt=10000 , 
iprtl=2, iprt2=2 , 
iplot=3, 

Send 

Sgmtry 

ngeom=2, 

rmin=l * 0 , rmax=30 . 0, 
thmin=0.0, thmax=180.0. 

Send 
Sf low 
ihstag=l , 

machr=.2, rer=20., 
gamr=1.4. 

Send 

Sbc 

ibclCl,l)=42, jbcl(l,2)=42, 
ibcl (2, 1)=12, jbcl ( 2 , 2)=12 , 
jbclC3,l)=21, jbcl(3,2)=21, 
jbc2(l,l)=42, 
jbc2C2,l)=ll, 
jbc2(3 , 1 ) =21 , 

Send 

Snum 

. nl=51 , n2=51 , 
ipackC 2) = 1 , 

sq( 2> 1 )=0 . , sq(2,2)“l. 001, 
Send 
Stime 

idtau=5, cf 1 = 1 0 . , 
ntime=1000 , 

Send 


Print u, v, c p . 

Print every 10,000 time levels . 

Print at every other grid point in both directions. 
Write PLOT3D 3-D plot files . 


Polar computational coordinates, 
r- coordinate limits . 

0-coordinate limits . 


Constant stagnation enthalpy . 
Set M r and Re r . 

Constant specific heats. 


gbcl C 1 , 1 ) = 0 . 
gbcl(2,l)=0. 
gbcl (3, 1 ) =0 . 
gbc2(l,l)=0. 
gbc2(2, 1)=0 . 
gbc2(3,l)=0. 


gbcl(l,2)=Q. 
gbcl C2,2)=0 . 
gbcl (3,2)=0 . 


dp\dl = 0 at ( = 0, I . 
duldt = 0 at i = 0, 1. 
v = 0a/^ = 0, 1. 
dpldrj = 0 at y\ — 0. 
u= 0 at r\ = 0. 
v = 0 at rj ~ 0. 


Use a 51 x 51 mesh . 

Pack in rj direction . 

Pack fairly tightly near *7 = 0. 


Spatially varying At. 
Limit of 1000 time steps , 


Sturb Laminar flow . 

Send 
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rm mods temp.f temp.o temp. ex 
ja -cslt 


Standard Proteus Output for Euler Flow Case 

The output listing for the Euler flow case is shown below. In the flow field printout, only the last time 
level is included. Note that a converged solution is obtained at time level 210, and that this level is auto 
matically included in the standard output and in the plot file. 

NASA Lewis Research Center 
Internal Fluid Mechanics Division 
2-d Proteus version 2.0 
January 1992 


Euler Flow Past a Circular Cylinder 


SRSTRT IREST = 0, NRQIN 3 11, 
SIO I DEBUG 3 20*Q, IPLOT 3 3, 
2, 3, 4, 5, 6, 7, 6, 9 f 
10, 12, 14, 16, IS, 20 

IVOUT * 1, 2, 32, 47 "0, 


IPRT1A 


1, 


30.0, RMIN - 1.0, THMAX = 180.0, THMIN 3 0.0, XMAX * 1.0, XMIN = 0.0, YMAX 3 1.0, 


I SWIRL - 0, XTHIN 3 2*0, KTR = 0.0, 
7.645E-02, TR = 519.0, UR = 0.0, SEND 
= 8*0.0, GBC2 * 4*0.0, 2*1.0, 2*0.0, 


NRQOUT 3 12, NRXIN 3 13, NRXOUT = 14, SEND 

IPLT = 0, IPLTA 3 101*0, IPRT * 10000, IPRT1 3 1, IPRT2 3 2, IPRTA = 101*0 
10, 11, 12, 13, 14, 15, U, 17, 18, 19, 20, 21, 30*0, I PRT2A 3 1, 2, 4, 6, 8, 
22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 51, 24*0, IUNITS - 

IWCUTl = 2*0, IWOUT2 * 2*0, NGRID * 7, NHIST 3 10, NHMAX = 100, NOUT = 6, NPLOT = 9, 

NPLOTX = 8, NSCR1 =20, SEND 
SGMTRY IAX1 - 0, NGEOM = 2, RMAX 
YMIN = 0.0, SEND 

SFLOW GAMR 3 1.4, HSTAGR = 0.0, ICVARS = 2, I EULER = 1, IHSTAG =1, ILAHV = 0, 

LR * 1 0» MACHR = 0.2, MLB? * 0.0, PRLR 1 0.0, RER 3 20.0, RG = 1716.0, RHOft 

FRC1 = 4QA«o 0. FBC2 = 408*0.0, FBCT1 = 204*0-0, FBCT2 = 204*0.0, G - . 

GSCT^-O.O, GBCT2 = 4*0.0, GTBC1 3 80-0.0, GTBC2 3 80*0.0, IBC1 3 408*0, IBC2 - <08*0, IB £T1 * 51 J 1 ° * 51 

51*10 IBCT2 = 51*0, 51*10, 51*0, 51*10, JBC1 3 42, 12, 21, 0, 42, 12, 21, 0, JBC2 3 92, 71, 77, 0, <1* J 1 * 

il, 0, JBCT1 * 0, 10, 0, 10, JBCT2 = 0, 10, 0, 10, JTBC1 3 8*0, JTBC2 3 8*0, KBC1 * 2*0, KBC2 3 2*0, NTBC - 0, 

WTBCA 3 10*0, SEND 

SNUM CAVS2E 3 4*1.0, CAVS2I 3 4*2.0, CAVS4E = 4*1.0, IAV2E 3 0, 

SQ 3 2*0.0, 10000.0, 1.01, THC - 1.0, 2*0.0, THE = 1.0, 

STIMe' CFl'= 10?o!' 9^0, CFLMAX 3 10.0, CFLHIN 3 0.5, CHG1 3 4.0E-02, CHG2 = 6.0E-02, DT 3 10*1.0E-02, DTF1 

DTF2 3 1.25, DTKAX = 1.0E-02, DTMIN = 1.0E-C2, EPS 3 4«1.0E-03, ICHECK ^10, 

NDTCYC 3 2, NITAVG 3 10, NTIME 3 1000, 9*0, NTSEQ 3 1, TLIM 3 20.0 

•ST. hZl’i.lV -t:s. ***•- .. in*. . ;§ i. ™ * ... 

ITURB 3 0, ITXI 3 1, I WALL 1 3 2»-l, IWALL2 3 2"-l, LWALL1 = -1, 50*0, -1, 50*0, LWALL2 - -1, 50 0, 

NTKE 3 1, PRT 3 0.91, REXT1 3 0.0, REXT2 3 0.0, TFACT 3 1.0, SEND 


IAV2I = 1, IAV4E 3 1, IPACK 3 
2*0.0’, THKE * 1.0, 0.0, THX = 1.0, 


0 , 1 , 

2 * 0 . 0 , 


N1 3 21 , N2 3 51 , 
THY 3 1.0, 2*0.0, 


CHG2 3 6 . 0E- 02, DT 3 10*1.0E-02, DTFI 3 1.25, 
ICTEST = 3, IDTAU 3 5, IDTMOD 3 1, 

SEND 

CKLEB 3 0.3, CKMIN = 0.0, CMUR 3 9.0E-02, CNA = 2.0, 


- 1 , 


50*0, 


Normalizing conditions 

Length, lr a 1.0000E-00 
Velocity, ur * 2.2332E*02 
Temperature, tr * 5.1900E*02 
Density, rhor * 7.6450E-02 
Viscosity, mur * 8.5366E-01 
Thermal conductivity, ktr = 1.0192E-01 
Pressure, rhor*ur*"2 * 3.8129E*03 
Energy/vol., rhor*ur««2 * 3.8129E+03 
Gaj constant, ur**2/tr * 9.6096E+01 
Specific heat, ur*«2/tr * 9.6096E+01 
Stagnation enthalpy, ur*"2 = 4.9874E*04 
Time, lr/ur * 4.4778E-03 


ft 

ft/sec 

deg R 

lbm/f t3 

lbm/f t-see 

lbm-f t/sec3-deg R 

lb«/f t-sec2 

lbm/f t-sec2 

f t2/sec2-deg R 

ft2/sec2-deg R 

ft2/sec2 

sec 


Reference conditions 


Reynolds number, rer ' 

Mach number, machr 
Specific heat ratio, gamr 
Laminar Prandtl number, prlr 
"Reference" Prandtl number, prr 
Specific heat at const, press. 
Specific heat at const, vol. 

Gas constant, rg 
Pressure, pr 

Stagnation enthalpy, hstagr 
8IC P0 3 1.0, TO 3 1.0, U0 3 


* 2.000 0E+ 01 

* 2.000 0E- 01 
3 1 . 4000E*00 

* 5. 0306E* 04 
= 8. 0489E*02 

= 6 . 0 06 0E* 03 ft2/sec2-deg R 
= 4.2900E+03 f t2/sec2-d«g R 

* 1 .7160E+03 ft2/sec2-deg R 

* 2. 1 162E*03 lbf/ft2 

3 3 . 1 421E*06 f t2/sec2 

1.0, VO = 0.0, W0 = 0.0, SEND 

Boundary condition parameters 


jbclCl,!) 3 

42 

gbcl (1,1) 3 

0 . 00 OOE*OD 

jbcl (2, 1) 3 

12 

gbcl (2,1) 3 

O.OOOOE-OO 

jbcl (3,1) 3 

21 

gbcl (3,1) 3 

0. OOOOE*00 


x-velocity at time level 21Q 

3 . 

1 .OOOOE+00 
1 . 0006E+00 
1 .0004E+00 
1 . 0006E*00 
1 . 0006E+00 
1 . 0006E+00 


lxi 

3 1 

2 

leta 

51 

" i.6000E*00 

1 .00006*00 

50 

1 . 0008E*00 

1 . 0008E*00 

48 

1 . 0006E+00 

1 ,0006E*00 

46 

1 .0008E*00 

1 .0008E*00 

44 

1 .0010E*00 

1 . 001 OE+0O 

42 

1.001 1E*00 

1 . 001 1E*00 


jbc2(l,2) 

s 

41 

gbc2(l ,2) 

= 

1 . 0000E*00 

jbc2 (2, 2) 

s 

11 

gbc2(2,2) 

= 

1 . 0000E+00 

jbc2 (3, 2) 

- 

21 

gbc2(3, 2) 

V 

0 . 0 000E* 00 

jbc2(l,l) 


92 

gbc2( 1 , 1 ) 

_ 

0 . 0000E+00 

jbc2( 2, 1 ) 

= 

71 

gbc2(2, 1) 


0 . 0000E*00 

jbc2(3, 1 ) 

3 

77 

gbc2(3,T) 

= 

0. OOOOE+OO 


jbcl (1 ,2) = 
jbcl (2, 2) 3 
jbcl (3,2) 3 


42 gbcl ( 1 , 2) 
12 gbcl (2,2) 
21 9 bcl (3,2) 


3 O.OOOOE-OO 
3 0 . 0000E*0C 
3 0 . OOOOE*OC 


4 

1 . OOOOE+OO 

1 . 0 002E+ 0 0 
1 . 000 1E+00 
1 . 0002E+00 
1 . 0001E+00 
9.9990E-01 


5 

1 .OOOOE-OO 
9 . 9977E-01 
9.9985E-01 
9. 9992E-01 
9 . 9980E-01 
9.9955E-01 


6 

1.0000E-00 
9.9953E-01 
9.9983E-01 
9 . 9996E-CI 
9 . 9993E-01 
9.9982E-01 


7 

1.000 OE^OO 
9.9953E-01 
1 . 0001E+00 

1 . 00 03E* 00 
1. 0005E*00 
1 . 0007E+00 


8 

1. OOOOE*CO 
9 . 9973E-01 
1 . 0005E+00 
1 . 0009E+00 
1 . 0013E+ 00 
1 . 0018E+ 00 


9 

1 . OOOOE+OO 
1. 00006*00 
1 . 0 009E* 00 
1 . 0015E*00 
1 . Q021E+00 

1 . 0 028E + 00 


10 

1 . DOOOE+ 0 0 
1 .0003E*00 
1 . 0013E*00 
1 . 0020E+00 
1 .0027E*00 
1 . 0036E*00 


/h O 
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40 

1.001 0E+0 0 

1. 00106+00 

1 . 0CG4E+00 

9.99526-01 

9.99176-01 

9.99696-01 

1.00096+00 

1. 0025E+00 

1.00396+00 

1.00486+00 

38 

1 . 00086+00 

1 .00086+00 

9.99926-01 

9.98866-01 

9.98606-01 

9 . 9953E-01 

1 . 0014E+00 

1 . 0 035E*0 0 

1.00536+00 

1,00656*00 

36 

1.00036+00 

1.00036+00 

9.99046-01 

9.97796-01 

9.9775E-01 

9. 9933E-01 

1.00206+00 

1. 0049E+00 

1.0D746+00 

1.0090E+00 

54 

9.99056-01 

9.99056-01 

9.97476-01 

9.96086-01 

9 . 9653E-01 

9.99136-01 

1 .0030E+00 

1.0071E*00 

1.01046+00 

1.01266+00 

32 

9.9684E-01 

9.96846-01 

9.94856-01 

9.93466-01 

9.94796-01 

9 . 9895E-01 

1 .0046E+00 

1.01026*00 

1.01486+00 

1.0177E+00 

30 

9.93056-01 

9.93056-01 

9.90636-01 

9.89536-01 

9 . 9235E-01 

9.98826-01 

1. 00696+00 

1.01486*00 

1.0210E+00 

1 . 0251E+00 

28 

9 . 8689E- 0 1 

9.8689E-01 

9.84096-01 

9.83796-01 

9. 89006-01 

9 . 9879E-01 

1.01036+00 

1 . 021 2E+ 00 

1.02986+00 

1 . 03556+00 

26 

9.77286-01 

9. 77286-01 

9.74316-01 

9 . 7563E- 01 

9.84486-01 

9. 9891E-01 

1.01516+00 

1.03016*00 

1.04226*00 

1 .0501E+00 

24 

9.62836-01 

9.62636-01 

9.60136-01 

9.64326-01 

9.78486-01 

9. 9925E-01 

1 . 02186+00 

1 . 04256+00 

1.0592E+00 

1.0701E+00 

22 

9.41846-01 

9.4164E-01 

9.40226-01 

9.49116-01 

9 . 7 067E-01 

9. 999IE-01 

1.03096*00 

1.0594E+00 

1.08236*00 

1.0972E+00 

20 

9. 12316-01 

9.1231E-01 

9.13196-01 

9.29256-01 

9.60716-01 

1 . 00106+00 

1 . 0431E+00 

1 . 081 7E*0 0 

1.11296+00 

1 .1331E+00 

18 

8.72076-01 

8.72076-01 

8.77846-01 

9.0419E-01 

9.46296-01 

1.00256+00 

1.05906*00 

1.1108E+00 

1 . 1526E+ 00 

1.17976*00 

16 

8.18926-01 

8 . 1692E- 01 

8.33406-01 

8.73726-01 

9.33196-01 

1.00476+00 

1.07926*00 

1.14786+00 

1 . 20306+00 

1.23886+00 

14 

7.50886-01 

7.50686-01 

7.79706-01 

8.38166-01 

9.1545E-01 

1 .QO76E+O0 

1.10446*00 

1.193SE+00 

1. 26516+00 

1 .31 15E+00 

12 

6.66466-01 

6.66466-01 

7. 16896-01 

7.98466-01 

8.95756-01 

1.01136+00 

1.13466*00 

1.2484E+00 

1.33966+00 

1 .3986E+00 

10 

5.65056-01 

5.65056-01 

6. 44136-01 

7.55656-01 

8.7626E-01 

1 .016SE+00 

1.16936*00 

1.31226+00 

1.42636+00 

1 .4999E+00 

8 

4. 4815E-01 

4.48156-01 

5.57686-01 

7.07436-01 

8.60316-01 

1.02736+00 

1.20946*00 

1.3834E+00 

1.52366+00 

1.61386+00 

6 

3. 21676-01 

3-21676-01 

4. 5159E-0I 

6-41786-01 

8.43136-01 

1.04976+00 

1.2630E+00 

1.46626+00 

1 . 631 6E+00 

1 .7386E+00 

4 

1.97596-01 

1.97596-01 

3. 269 0E-01 

5.40376-01 

7.95636-01 

1. 06346+00 

1.32596*00 

1.56596+00 

1.75896+00 

1.8827E+00 

2 

8.88906-02 

8.88906-02 

2. 0555E-01 

4.14686-01 

6.96366-01 

1.01S8E+00 

1 . 3292E* 0 0 

1.6149E+00 

1 . 844OE+0 0 

1 .9929E+ 00 

1 

3.75406-02 

3. 94716-02 

1.5509E-01 

3. 62486-01 

6.50926-01 

9.80236-01 

1.30706*00 

1.60186+00 

1.83786+00 

1.9912E+00 

lxl 

* 11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

ieta 

51 

1 .00006+00 

1.00006+00 

1.00006+00 

1 .00006+00 

1.00006+00 

1.00006+00 

1.00066*00 

1 . OOOOE+ 00 

1.00006+00 

1.00006*00 

50 

1.00066+00 

1.0007E+00 

1.00086+00 

1.00076+00 

1.0006E+00 

1.00046+00 

1.00036*00 

1 .0001E+00 

1,00006+00 

I .00 % 006 + 00 

48 

1 .00156+00 

1 .00156+00 

1.00146+00 

1.00126+00 

1. 0009E+00 

1 .0006E+00 

1 . 00036*00 

1.00016+00 

9.99986-01 

9.99946-01 

46 

1.00226+00 

1 .0022E+00 

1.0020E+00 

1 .0017E+00 

1.00126+00 

1.00086+00 

1.00046*00 

l.OOOOE+OO 

9.99856-01 

9.9979E-01 

44 

1.00306+00 

1 .00306+00 

1.0027E+00 

1.00226+00 

1.00166+00 

1 .0009E+00 

1.00036*00 

9.99696-01 

9 . 99626-01 

9.99536-01 

42 

1.00396+00 

1.00396+00 

1.00356+00 

1. 00286+00 

1 .00196+00 

1.00106+00 

1.00026*00 

9.99606-01 

9.99226-01 

9 . 9909E-01 

40 

1.00526+00 

1 .0051E+00 

1.00456+00 

1.00366+00 

1.00246*00 

1.00126+00 

1.00006*00 

9.99136-01 

9.98586-01 

9.98386-01 

38 

1 .0071E+00 

1.00696+00 

1.00606+00 

1.00476+00 

1.00316+00 

1.00136+00 

9.9967E-01 

9.98386-01 

9,97586-01 

9.97286-01 

36 

1.00976+00 

1.00946+00 

1.00826+00 

1.00636+00 

1.00396+00 

1.00146+00 

9.99106-01 

9.97236-01 

9.96056-01 

9.9560E-01 

34 

1.01346+00 

1.01306+00 

1.01136+00 

1.0086E+00 

1.00526+00 

1.00166+00 

9.9821E-01 

9.95506-01 

9.93766-01 

9.9308E-01 

32 

1.01896+00 

I .01826+00 

1 . 0157E+00 

1.01186*00 

1 . 0069E+0 0 

1 .0017E+00 

9.96856-01 

9.92926-01 

9-90366-01 

9.8933E-01 

30 

1 . 02676+00 

1.02566+00 

1 . 0219E+00 

1.01636+00 

1.00936+00 

1.00186+00 

9.9461E-01 

9.69126-01 

9.85386-01 

9 . 8382E- 01 

28 

1.03766+00 

1.03606+00 

1.0307E+00 

1.0226E+00 

1.01256+00 

1 . 0019E+ 00 

9.91836-01 

9.83636-01 

9.78166-01 

9 . 7583E- 01 

26 

1 . 0529E+00 

1 .05046+08 

1.04296+00 

1.03136+00 

1.0170E+00 

1.0019E+00 

9.87566-01 

9.75806-01 

9.67886-01 

9.6441E-01 

24 

1.07406+00 

1 .07036+00 

1.0596E+00 

1 .04326+00 

1.02316+00 

1.00186+00 

9.81566-01 

9.64846-01 

9.53476-01 

9.4837E-01 

22 

1 .10236+00 

1 .0971E+00 

1.08216+00 

1. 05936*00 

1.03146+00 

1 . 00166+00 

9.73326-01 

9.49806-01 

9.33676-01 

9.2626E-01 

20 

1 . 14006+00 

1.13276+00 

1.11216+00 

1.08086+00 

1. 0425E+00 

1.00146+00 

9.62326-01 

9.29626-01 

9.07056-01 

8.9645E-01 

18 

1.18886+00 

1.17896+00 

1.151 1E+ 00 

1.10886+00 

1.05696+00 

1 .0013E+00 

9. 48056-01 

9.03266-01 

8.72156-01 

8. 5722E- 0 1 

16 

1.25086+00 

1.23766+00 

1.2007E+00 

1.14456+00 

1.07556+00 

1.00146+00 

9.30166-01 

8.69826-01 

8.27656-01 

8. 0694E- 01 

14 

1. 32716+00 

1 .3099E+00 

1.26206+00 

1 .1889E+00 

1.09896+00 

1 .0020E+00 

9 . 0857E-01 

8.28766-01 

7.72626-01 

7.44316-01 

12 

1.41856+00 

1.39676+00 

1.3357E+00 

1.24256+00 

1,12776+00 

1 .0037E+00 

8.83616-01 

7.80106-01 

7. 0676E-01 

6.68586-01 

10 

1 .5247E+00 

1 .4976E+00 

1.4216E+00 

1 .3055E+00 

1. 1622E+00 

1.00706+00 

8.5605E-01 

7.24616-01 

6.30626-01 

5. 7977E-01 

8 

1 .6442E+00 

1.61146+00 

1.51906+00 

1 .3776E+Q0 

1.20276+00 

1 .01276+00 

8.2720E-01 

6.63936-01 

5.45676-01 

4.7873E-01 

6 

1.77466+00 

1.73556+00 

1.6257E+00 

1.45736+00 

1.24876+00 

1.02146+00 

7.98596-01 

6.00356-01 

4.54236-01 

3 . 6708E-01 

4 

1 .9233E+00 

1.37636+00 

1.74686+00 

1.54916+00 

1.30436+00 

1 . 0370E+00 

7.74126-01 

5.37916-01 

3.59686-01 

2.47176-01 

2 

2. 0458E+00 

1.99776+00 

1.8545E+00 

1.63246+00 

1. 35516+00 

1.05076+00 

7 . 4941E-01 

4.75906-01 

2.6292E-01 

1 .20356-01 

1 

2.0456E+00 

1 .99666+00 

1.84966+00 

1.62136+00 

1.33606+00 

1.02246+00 

7.11546-01 

4.2914E-01 

2 . 0626E-01 

5.17016-02 


lxl * 21 

iata 

51 1 . 0O0OE+OO 

50 1 . OOQCE+OO 

65 9.99946-01 

46 9 , 99796- 0 1 

44 9 . 99536- 0 1 

42 9.9909E-01 

40 9 . 9838E- 01 

38 9 . 97286- 0 1 

36 9. 95606-01 

34 9.9308E-01 

32 9 * J933E- 0 1 

30 9.8382E-01 

28 9.7583E-01 

26 9 . 6441E- 0 1 

24 9 . 4837E- 0 1 

22 9 . 2626E- 0 1 

20 8.96456-01 

18 8. 57226-01 

16 8.0694E-01 

14 7.4431E-01 

12 6 . 6858E- 0 1 

10 5.7977E-01 

8 4.7873E-01 

6 3. 6708E- 0 1 

4 2.4717E-01 

2 1 . 2035E- 0 1 

1 5. 7670E-02 

y or r-valocity at tin# leval 210 

lxl * 1 2 3 4 5 6 7 8 9 10 

lata 

51 0.00006+00 0 . 0000E+ 00 0.00006+00 O.OOOOE+OO O.QOOOE+OO O.OOOOE+OO 0.00006+00 O.OOOOE+OO 0.00006+00 O.QOOOE+OG 

50 oioOOOE+OO 2 1 s545E- 04 4.6045E-04 4.4817E-04 1.7066E-04 -2.9040E-04 -7.84106-04 -1.1722E-03 -1 . 37986-03. -1 . 3993E-03 

48 0. OOOOE+OO 2.0835E-04 3.49866-04 2.5821E-04 -8.6962E-05 -5.6570E-04 -1.00046-03 -1.2517E-03 -1.27086-03 -1.09216-03 

46 0. OOOOE+OO 1.12586-04 1.3464E-04 -1.2082E-04 -6,49496-04 -1.2739E-03 -1.7625E-03 -1.95436-03 -1.81586-03 -1/4199E-03 

44 O.OOOOE+OO 4.6456E-05 -2.9109E-05 -4.6240E-04 -1.21646-03 -2.0319E-03 -2.60266-03 -2.74126-03 -2.4367E-03 -1.8087E-03 

42 0. 0 00 06+0 0 -3.6884E-05 -2.5956E-04 -9.4S69E-04 -2.0068E-03 -3.0636E-03 -3.7131E-03 -3.74676-03 -3.1979E-03 -2.25386-03 

40 0.00006+00 -2.0079E-04 -6.60726-04 -1.7223E-03 -3.2020E-03 -4.5529E-03 -5.2583E-03 -5.10726-03 -4.2078E-03 -2.8358E-03 

38 O.OOOOE+OO -4.7849E-04 -1.3231E-03 -2.9336E-03 -4.9749E-03 -6.6719E-0S -7.38336-03 -6.9294E-03 -5.53376-03 -3.5820E-03 

36 O.OOOOE+OO -9. 37446-04 -2.38566-03 -4.7877E-03 -7.5721E-03 -9.6628E-03 -1.02986-02 -9.38356-03 -7.30286-03 -4.56706-03 

34 O.OOOOE+OO -1.68096-03 -4.06026-03 -7.5895E-03 -1.13406-02 -1.3860E-02 -1.42966-02 -1.27156-02 -9.70346-03 -5.90046-03 

32 0.00006+00 -2.85666-03 -6.6424E-03 -1.1751E-02 -1.67396-02 -1.97076-02 -1.97816-02 -1.7276E-02 -1.3011E-O2 -7.74066-03 

30 O.OOOOE+OO -4.67256-03 -1.0536E-02 -1.7820E-02 -2.43666-02 -2.77896-02 -2.7305E-02 -2.3565E-02 -1. 76156-02 -1.0300E-02 

28 O.OOOOE+OO -7.41636-03 -1.6283E-02 -2.6507E-02 -3.4991E-02 -3.88?6E-02 -3.76206-02 -3.22646-02 -2.40336-02 -1.3848E-02 

26 0.00006+00 -1.14776-02 -2.4590E-02 -3.87176-02 -4.9587E-02 -5.39676-02 -5.17266-02 -4.4276E-02 -3.29296-02 -1.87126-02 

24 0.00006+00 -1.73736-02 -3.6357E-02 -5-5561E-02 -6.9345E-02 -7.43266-02 -7. 09006-02 -6.0724E-02 -4.5106E-02 -2.52806-02 

22 0.00006+00 -2-58006-02 -5.2696E-02 -7.83346-02 -9.5664E-02 -1.01486-01 -9.66886-02 -8.2934E-02 -6.14846-02 -3.39986-02 

20 0.00006+00 -3.76626-02 -7.49136-02 -i. 08456-01 -1.30086-01 -1.37196-01 -1.30836-01 -1.12356-01 -8.30656-02 -4.5371E-02 

18 O.OOOOE+OO -5 . 42086-02 -f. 04446-01 -1.4728E-01 -1.74176-01 -1.83286-01 -1.7510E-01 -1.5040E-01 -1.1086E-O1 -5.99386-02 

16 0.00006+00 -7.67136-02 -1.42666-01 -1.96026-01 -2.2932E-01 -2.41456-01 -2.31076-01 -1.9834E-01 -1.45796-01 -7.82076-02 

14 0.00006+00 -1.06226-01 -1.9072E-01 -2.5559E-01 -2.96566-01 -3.1293E-01 -2.9985E-01 -2.5706E-01 -1.88526-01 -1.0057E-01 
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12 

10 

8 

6 

4 

2 

1 

ixi » 

ieta 

51 
50 
48 
46 
44 
42 
40 
58 
56 
54 

52 
50 
28 
26 
24 
22 
20 
18 
16 
14 
12 
10 

8 

6 

4 

2 

1 


0. OOOOE+OO 
0 . 0 QODE+ DO 
0. OOOOE+OO 
Q. OOOOE+OO 
Q.OOOOE+DO 
Q . 00 00E+ 0 0 
0. OOOOE+OO 

» 11 

0. OOOOE+OO 
1.2661E-03 
7.9251E-04 
8.8751E- 04 
1.0238E-03 
■1 . 1580E-03 
•1 .2802E-03 
1 .4328E-03 
-1.6042E-03 
1.8030E-03 
2.0368E-03 
■2.3042E-03 
•2. 5878E- 03 
2.8521E-03 
>3. 0506E- 03 
•3. 1386E-03 
•3. 0881E-03 
■2.8930E-03 
2.5653E-03 
■2.1275E-03 
■1.61 06E-03 
■1 .0210E-03 
■3. 7897E- 04 
1 .6329E-04 
1.3982E-03 
2.0312E-03 
'2.731 OE-08 


-1 . 4240E-01 
-1.8194E-01 
-2. 1 700E-01 
-2. 3663E-01 
-2.3826E-0I 
-2. 4139E-01 
-2 - 4921E-01 

12 

Q . OOOOE+OO 
-1.0323E-03 
-4.51 13E-04 
-3. 3358E-04 
-2.3156E-04 
-3.8350E-05 
2.3150E-04 
6 . 431 7E-04 
1 . 2629E-03 
2.1923E-03 
3.5803E-05 
5.6407E-03 
8. 6653E-05 
1.S032E-02 
1 . 920 IE-02 
2. 7704E- 02 
3.9117E-02 
5.4016E-02 
7 . 2907E- 02 
9 . 6133E-02 
1 . 2378E-01 
1 .5562E-01 
1 .9113E-01 
2 . 2926E-0 1 
2.7096E-01 
3. 0932E-01 
3. 1623E-0 1 


-2.491 OE-Ol 
-3.1616E-01 
-3.8431E-01 
-4.3629E-01 
-4.5500E-01 
-4 .6 092E-O1 
-4.7732E-01 

13 

O.OOOQE+OO 
-7.5001E-04 
-1.2793E-04 
1 .5646E-04 
4.6016E-04 
9 . 1280E- 04 
1.5377E-03 
2.4446E-03 
3.7706E-03 
5.7169E-03 
8 .569 OE- 03 
1 .2721E-02 
1.8698E-02 
2. 71 72E-02 
3.5973E-02 
5-5079E-02 
7.6571E-02 
1 . 0455E- 01 
1.3999E-01 
1 . 8356E- 01 
2.3548E-01 
2.9534E-01 
3.6219E-01 
4.3422E-01 
5. 1230E-01 
5 -8587E-01 
6.0098E-01 


-3.2681E-01 
-4.1048E-01 
-5.0493E-01 
-S.9723E-01 
-6. 581 OE-Ol 
-6.8482E-01 
-7. 1 141E-01 

14 

0. OOOOE+OO 
-4^ 6644E- 04 
1 . 3826E-04 
5. 3127E-04 
9-8382E-04 
1 . 6292E-03 
2.5248E-03 
3.8146E-03 
5. 69Q4E- 03 
8.4281E-03 
1.2413E-02 
1.8172E-02 
2.6404E-02 
3.801 OE-02 
5.4112E-02 
7.6039E-02 
1. 0528E-01 
1 . 4335E-0 1 
1 . 9 1 60E-01 
2.5100E-01 
3.2187E-01 
4. 0375E-01 
4 . 9539E- 0 1 
5. 9443E- 0 1 
7.0153E-01 
6.0427E-01 
8.2610E-01 


-3 . 7642E- 0 1 
-4 . 6953E- 0 1 
-5.7760E-01 
-6 . 9793E-Q1 
-8. 0380E-01 
-8.6290E-01 
-8. 9592E- 01 

15 

0 . OOOOE+OO 
-2.2092E-O4 
3-2394E-04 
7 . 6504E- 04 
1 . 3031E-03 

2 . 06 0 IE- 03 
3.1179E-03 
4.6392E-03 
6.8473E-03 
1 .0060E-02 
1 .4721E-02 
2.1 431E- 02 
3 . 0994E- 02 
4 . 4451E- 02 
6.3104E-02 
8 . 8506E- 02 
1 .2240E-01 
1 . 6657E-01 
2. 2264E- 01 
2.9181E-01 
3. 7453E- 0 1 

4 . 7 037E- 0 1 
5 . 7796E- 0 1 
6 . 9472E- 01 
8.211 IE- 01 
9 . 4423E- 01 
9 . 7063E- 01 


-3 . 9804E- 01 

-3.8183E-01 

-3.2692E-01 

-2.3931E-01 

-I. 

-4.9614E-01 

-4.7630E-01 

-4. 0761E-01 

-2.9792E-01 

-1 . 

-6.0737E-O1 

-5.8187E-01 

-4.9779E-01 

-3 . 6346E- 0 1 

-1. 

-7 . 3399E-01 

-6 . 9963E-01 

-5.9682E-01 

-4 .S489E- 01 

-2. 

-8.6248E-01 

-8.2577E-01 

-7.0418E-01 

-5.1217E-01 

-2. 

-9 . 4669E-01 

-9. 1890E-01 

-7 . 9035E-01 

-5. 7803E-0 1 

-3. 

-9.8023E-01 

-9.4957E-01 

-8.1615E-01 

-5.9714E-01 

-3. 

16 

17 

18 

19 


0. OOOOE+OO 

0 . OOOOE+OO 

0. OOOOE+OO 

0 . 0OOOE+ 0 0 

0. 

-4. 1604E-05 

5.9240E-05 

6.8263E-05 

6.8766E-05 

3. 

4. 1727E-04 

4 . 1936E-04 

3. 4731E-04 

2.3221E-04 

1 

S.5143E-04 

8.0229E-04 

6 . 4830E-04 

4.3474E-04 

2. 

1 . 4075E-03 

1.3123E-03 

1 . 0601E-03 

7.1478E-04 

3. 

2.1872E-03 

2. 0280E-03 

1 . 639 0E-03 

1 . 1 089E-03 

5. 

3.2841E-03 

3. 0410E-03 

2.4623E-03 

1 . 67 08E-03 

8. 

4.8622E-03 

4.5003E-03 

3. 6508E- 03 

2. 4832E-03 

1 

7.I512E-03 

6.6185E-03 

5.3790E-03 

3. 6665E-03 

1 

1 . 0477E-02 

9.6971E-03 

7.8956E-03 

5 . 3937E-03 

2 . 

1 .5294E-02 

1 . 4157E-02 

1.1549E-02 

7.9084E-03 

3. 

2.2220E-02 

2.0573E-02 

1.6818E-02 

1.1547E-02 

5. 

3.2084E-02 

2.9719E-02 

2.4345E-02 

1.6764E-02 

8. 

4.5963E-02 

4 . 2600E-02 

3. 4970E-02 

2.4154E-02 

1 . 

6.5208E-02 

6. 0433E-02 

4.9751E-02 

3.4472E-02 

1 . 

9.1441E-02 

8. 489 IE- 02 

6. 9966E-02 

4.8634E-02 

2, 

1 .2648E-01 

1 . 1755E-01 

9.7074E-02 

6 . 7699E- 02 

3. 

1.7223E-01 

1.6029E-01 

1 . 3263E-01 

9.2S19E-02 

4, 

2. 3045E-01 

2.1484E-01 

1.7817E-01 

1.2516E-01 

6 , 

3. 0246E-01 

2.8258E-01 

2. 3497E-0 1 

1.6580E-01 

8, 

3.8889E-01 

3. 6430E-01 

3. 0391E-01 

2. 1563E- 01 

1 , 

4.8943E-01 

4.5997E-01 

3.8527E-01 

2.7529E-01 

1 , 

6 . 028 IE- 01 

5- 687 OE-Ol 

4.7867E-01 

3.4515E-01 

1 , 

7.2657E-01 

6.8847E-01 

5.8293E-01 

4.2526E-01 

2 

8.6106E-01 

8. 1974E-01 

6 . 9876E-01 

5.1686E-01 

2 

9 . 9404E-01 

9.S184E-01 

8. 1842E-01 

6 . 1641E- 01 

3 

1 .0224E+00 

9. 7935E-01 

6.4224E-01 

6 . 3481E-0 1 

3 


-3. 1537E-01 


ixi 

= 21 

ieta 


51 

0. OOOOE+OO 

50 

0. OOOOE+OO 

46 

0. OOOOE+OO 

46 

0. OOOOE+OO 

44 

0. OOOOE+OO 

42 

0. OOOOE+OO 

40 

0. OOOOE+OO 

38 

0. OOOOE+OO 

36 

0. OOOOE+OO 

34 

0. OOOOE+OO 

32 

0. OOOOE+OO 

30 

0. OOOOE+OO 

28 

0. OOOOE+OO 

26 

0. OOOOE+OO 

24 

0. OOOOE+OO 

22 

0. OOOOE+OO 

20 

0. OOOOE+OO 

16 

0. OOOOE+OO 

16 

0. OOOOE+OO 

14 

0. OOOOE+OO 

12 

0. OOOOE+OO 

10 

0. OOOOE+OO 

8 

0. OOOOE+OO 

6 

0. OOOOE+OO 

4 

0. OOOOE+OO 

2 

0. OOOOE+OO 

1 

0. OOOOE+OO 


Static press, coeff. at time level 210 


ixi 

= 1 

2 

3 

ieta 

51 

3.8829E-03 

2. 2737E-1 3 

2 . 2737E- 13 

50 

6.1637E-03 

6. 1637E-03 

5.1405E-03 

48 

3. 9352E-03 

3. 9352E-03 

3.2633E-03 

46 

5.5038E-03 

5.5038E-03 

4.5401E-03 

44 

7.2408E-03 

7.2605E-03 

5.971 6E- 03 

42 

9.6240E-03 

9.6240E-03 

7.8992E-03 

40 

1 .2939E-02 

1 . 2939E- 02 

1.0555E-02 

38 

1 .7444E-02 

1 . 7444E- 02 

1 .4141E-02 

36 

2.3562E-02 

2.3562E-02 

1.8966E-02 

34 

3. 1867E- 02 

3. 1867E-02 

2.5543E-02 

32 

4.31 48E-02 

4.3148E-02 

3.4440E-02 

30 

5.8479E-02 

5. 6479E-02 

4 . 6524E- 02 

26 

7 . 9276E- 02 

7 . 9276E-02 

6 . 2903E-02 

26 

. 1.0734E-01 

1 . 0734E-01 

8. 4937E-02 

24 

1 . 448 1 E- 0 1 

I . 4481E-0 1 

1 . 1416E-01 

22 

1.9402E-01 

1 . 9402E-01 

1.521 OE-Ol 

20 

2. 57 1 OE- 0 1 

2. 571 OE- 01 

1 .9991E-01 

18 

3.3525E-01 

3.3525E-01 

2.5795E-01 

16 

4 . 2766E- 01 

4.2766E-01 

3. 2538E-01 

14 

5.3032E-01 

5.3032E-01 

3 . 9969E-01 

12 

6.3512E-01 

6.3512E-01 

4.76 22E - 0 1 

10 

7.3009E-01 

7.30D9E-01 

5.4725E-01 

8 

6. 0183E-01 

8. 0183E-01 

6.0183E-01 

6 

8 . 41 44E-01 

8. 4144E-0 1 

6.2904E-0! 

4 

8 . 51 38E-01 

8. 5138E-0 1 

6.2659E-01 

2 

8.4242E-01 

8.4242E-01 

6.0524E-Q1 

1 

9. 4053E-01 

8. 3848E- 01 

5.8972E-01 

ixi 

= 11 

12 

13 

ieta 

51 

2.2737E-13 

2. 2737E-1 3 

2.2737E-13 

50 

-1.0193E-02 

-9 .31 11E-03 

-7 . 9694E-03 

48 

-5.5242E-03 

-5.3499E-03 

-4.8306E-03 

46 

-6. I360E-03 

-5.8386E-03 

-5. 1692E-03 


8 

2.2737E-13 
-8. 7151E-03 
-3.9875E-03 
-4. 6973E-03 
-5.3889E-03 
-6. 1841E-03 
-7.4452E-03 
-9.2618E-03 
-1 . 1941E-02 
-1.5908E-02 
-2. 1790E-02 
-3.0474E-02 
-4.3190E-02 
-6.1603E-02 
-8.7934E-02 
-1 .251 OE-Ol 
-1.7685E-01 
-2.4790E-01 
-3.4591E-01 
-4.7126E-01 
-6.3652E-01 
-8.4557E-01 
-1 . 1 024E+ 00 
-1.4080E+00 
-1 . 7616E+00 
-2. 1508E+00 
-2.3383E+00 


2. 2737E-13 
-1 . 0008E-02 
-4.8289E-03 
-5.5706E-03 
-6.4931E-03 
-7.S800E-03 
-9.3441E-03 
-1.1944E-02 
-1.5817E-02 
-2.1554E-02 
-2.9996E-02 
-4. 2313E-02 
-6. 0079E-02 
-8.5409E-02 
-1.2109E-01 
-1 . 7 073E- 01 
-2.3889E- 01 
-3.3114E-01 
-4.5399E-01 
-6. 1445E-0 1 
-8. 1932E-01 
-1 . 0741E+0 0 
-1 . 38I8E+00 
-1 . 7417E+00 
-2.1517E+00 
-2.6004E+00 
-2.6146E+00 


4 

2. 2737E- 1 3 
2. 8359E-03 
1.9545E-03 
2.71 19E-03 
3.6298E-03 
4. 8486E-03 
6.5175E-03 
8. 7786E-03 
1.1862E-02 
1.6095E-02 
2.1943E-02 
S.0042E-02 
4. 1 223E-02 
5.649SE-02 
7.6980E-02 
1.0371E-01 
1.3732E-01 
1 . 7755E-01 
2 . 2267E-01 
2:69r3E-01 
j.imf-n 
374332E-01 
3.S 6S9E -01 
3. 4253E-01 
2.9586E-01 
2.2448E-01 
1.8552E-01 

14 

2.2737E-13 
-6 . 3376E-03 
-4. 0154E-03 
-4.1833E-03 


5 

2 . 2737E-1 3 
-3. 1985E-04 
3. 0544E-04 
4.9782E-04 
8.7716E-04 
1 .4D04E-O3 
2 • 1224E-03 
3 . 1433E-03 
4.5986E-03 
6.6882E-03 
9.6851E-03 
1 .3940E-02 
1.9865E-02 
2. 7874E- 02 
3.8255E-02 
5 . 0953E- 02 
6.5234E-02 
7.9306E-02 
9 . 0033E- 02 
9 . 2947E- 02 
8 . 2777E- 02 
574450E-02 
3 . 61 11E-03 
-7 . 506 OE- 02 
-1 .8766E-01 
-3.28r3E-m 
-4. 0220E-01 

15 


6 

2.2737E-13 
-3.6459E-03 
-1.3614E-Q3 
-1 . 6302E-O3 
-1.6998E-03 
-1.7303E-03 
- 1 . 7806E-03 
-1 . 7972E-03 
-1 . 7673E-03 
-1 . 6723E-03 
-1.5193E-03 
-1 .3697E-03 
-1.3909E-03 
-1 . 9369E-03 
-S.6703E-03 
-7.7344E-03 
-1.5970E-02 
-3.1148E-C2 
-5.7156E-02 
-9. 904OE-O2 
-1 .6271E-01 
-2.5398E-01 
-3 . 7701E- 01 
-5.3440E-01 
-7.2944E-01 
-9.5365E-01 
-1 . 0682E+Q0 


16 


7 

2. 2737E-13 
-6.5574E-03 
-2.8247E-03 
-3. 3906E-03 
-3.8057E-03 
-4.2573E-03 
-4 . 9471E- 03 
-5.8876E-03 
-7.2236E-03 
-9.1616E-03 
-1 . 2034E-02 
-1 .6345E-02 
-2.2843E-02 
-3.2598E-02 
-4.7113E-02 
-6.8469E-02 
-9.9492E-02 
-1.4392E-01 
-2.0650E-01 
-2.9293E-01 
-4. 0951E-01 
-5.6244E-01 
-7.5632E-01 
-9.9296E-01 
-1 . 2732E+00 
-1.5651E+00 
-1.7385E+00 

17 

2. 2737E- 13 
-1.5869E-03 
-9.2088E-04 
-5.4932E-04 


18 

2.2737E-13 
-6.2181E-04 
-1 . 7096E- 04 
3. 3978E-04 


19 

2.2737E-13 
-1.1495E-04 
2.4389E- 04 
8.4368E- 04 


10 

2. 2737E-13 
-1 . 0468E- 02 
-5. 3456E-03 
-6 . 0462E-03 
-7 . 1448E- 03 
-8. 4489E- 03 
-1 . 0584E-02 
-1 . 3752E-02 
-1.8466E-D2 
-2.5407E-02 
-3. 5537E-02 
-5. 0172E-02 
-7.11 03E-02 
-1.0073E-01 
-1 . 4222E- 01 
-1 . 9966E- 01 
-2. 7819E-01 
-3. 8395E-01 
-5. 2396E-01 
-7. 0559E-01 
-9. 3579E-01 
-1.2199E+00 
-1 . 5602E+00 
-1 . 9551E+ 00 
-2.4004E+00 
-2.8865E+00 
-3.1184E+00 


20 

2. 2737E-13 
1 . 7802E-05 
3.5799E-04 
9 . 9247E-04 


2.2737E-13 2-2737E-13 
-4. 6034E-03 -2.9598E-03 
-2.9986E-03 -1.9142E-03 
-2. 9835E-03 -1.7143E-03 
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44 -7 . 3253E-03 -7.0045E-03 -6.1671E-03 -4.9401E-C3 -3.3952E-03 -1.7386E-03 -1.9351E-04 1.0138E-03 1.7272E-03 1.9607E-03 

42 -8.7259E-03 -8.3449E-03 -7.3054E-03 -5.6995E-03 -3.7O28E-03 -1.5515E-03 4.7735E-04 2.0987E-03 3.0975E-03 3.4559E-03 

40 -I . 1 020E-02 -1 . 0536E-02 -9.1336E-03 -6.9543E-03 -4.2497E-03 -1.3369E-03 1.4292E-03 3.6829E-03 5.1269E-03 5.6899E-03 

38 -1 * 4420E- 02 -1.3770E-02 -1.I62OE-02 -8.7923E-03 -5.0518E-03 -1.0330E-03 2.8O10E-O3 5.9SC1E-03 6.0964E-03 8.9879E-03 

34 -1 - 9453E-02 -1.8532E-02 -1.5763E-Q2 -1.1490E-02 -6.2423E-Q3 -6.2299E-04 4.7520E-03 9.2747E-03 1.2395E-02 1.3608C-02 

34 -2.6814E-02 -2.5464E-02 -2.1494E-02 -1-5423E-02 -8.0034E-03 -8.0952E-05 7.5059E-03 1.3962E-02 I.8564E-02 2.0793E-C2 

32 -3.7484E-02 -3.5477E-02 -2.9776E-02 -2.1135E-02 -1.0611E-02 6.1229E-04 1.J364E-02 2.0583E-02 2.7338E-02 3.0825E-02 

30 -5.2615E-02 -4.9842E-02 -4.1684E-Q2 -2.9407E-02 -1.4474E-02 1.4531E-03 1.6715E-C2 2.9656E-02 3.9699E-02 4.5O69E-02 

26 -7.4660E-02 -7.0315E-02 -5.8716E-02 -4.1337E-02 -2.0198E-02 2.3816E-03 2-4034E-02 4.2697E-02 5.6905E-Q2 6.5129E-02 

24 -1.O552E-01 -9.9286E-02 -8.2922E-02 -5.8451E-02 -2.8665E-02 3.2177E-03 3.384CE-02 6.0217E-02 8.0499E-02 9.2867E-02 

24 -1 .487 IE- 01 -1.3993E-01 -1.1705E-01 -8.2839E-02 -4.U59E-02 3.5477E-03 4.4401E-02 8.3648E-02 1.1225E-01 1.3057E-01 

22 -2. 0851E-01 - 1 . 943SE-0 1 -1.6470E-01 -1.1732E-01 -5.9542E-02 2.5402E-03 4.2544E-02 1.1417E-01 1.5396E-01 1.8067E-01 

20 -2.9023E-0I -2.7366E-01 -2.3044E-01 -1.4542E-01 -S.6477E-02 -1.3181E-0S 8.1339E-02 1.5259E-01 2.0717E-01 2.4550E-01 

18 -4.0Q22E-O1 -3 . 7802E-01 -3.1990E-01 -2.3253E-01 -1.2567E-01 -1.0551E-02 1.0167E-QI I.9890E-01 2.7240E-01 3.2674E-01 

16 -5. 4567E-01 -5.1647E-01 -4.3965E-01 -3.2392E-01 -1.8207E-01 -2.9015E-02 1.2074E-01 2.5162E-0I 3.4948E-01 4.2479E-01 

14 -7.3408E-01 -4.9443E-01 -5.9686E-01 -4.4653E-01 -2.6179E-01 -6.2067E-02 1.3388E-01 3.0732E-01 4.3490E-01 5.3806E-01 

12 -9 . 7245E-01 -9.2496E-01 -7.9858E-01 -4-0735E-Q1 -3.7179E-01 -1.1639E-01 1.3450E-01 3.4019E-01 5.2329E-01 6.6251E-01 

10 -1 . 2641E+00 -1 ,2075£*00 -1.0506E*00 -8.1263E-01 -5.1688E-01 -1.9932E-01 1.1448E-01 4.022SE-01 6.0652E-01 7.9143E-01 

8 -1 . 6173E*00 -1 . 5466E* 00 -1.3560E-00 -1.0665E>00 -7.0651E-01 -3.1761E-01 6.6339E-02 4.2434E-01 6.7465E-01 9.1588E-01 

4 -2.0239E+00 -1.9405E*00 -1.7142E*D0 -I.3698E*00 -9.4328E-01 -4.7598E-01 -1.7139E-02 4.1731E-01 7.I732E-01 1.0256E*00 
4 -2. 4809E*00 -2.3640E*00 -2.1207E*00 -1.7194E*00 -1.2222E*00 -6.7590E-01 -1.393SE-01 3.7416E-01 7.2548E-01 1.1104E*00 
2 -2. 9798E*0C -2 . 67 02E*00 -2.5703E*00 -2.1124E*00 -1.5438£*00 -9.1801E-01 -3.0254E-01 2.8938E-01 6.9190E-01 1.1606E*00 

1 -3. 2I81E+00 -3.1 035E* 00 -2.7878E*00 -2.3Q49E*00 -1-7043E*00 -1.0428E+00 -3.9124E-01 2.3459E-01 6.6435E-01 1.1537E*Q0 

ixi * 21 

ieta 

51 -4.4916E-05 
50 1 . 7602E-05 

48 3.5799E-04 

4$ 9.9247E-04 

44 1 . 9407E-03 

42 3. 4559E- 03 

40 5. 4699E-03 

38 8. 9679E-03 

34 1 . 3808E- 02 

34 2.0793E-02 

32 3.0825E-02 

30 4. 5089E- 02 

28 4 . 5129E-02 

24 9 . 2847E-02 

24 1.3057E-01 

22 1.8047E-01 

20 2.4550E-01 

18 3. 2674E- 01 

16 4.2479E-01 

14 5.3806E-01 

12 6.6251E-01 

10 7.9143E-01 

8 9 . 1588E- 01 

6 1 . 0256E* 00 

4 1 . 1104E+00 

2 l . 1 606E* 00 

1 1 . 3839E* 00 
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Convergence history for continuity equation 


Without artificial viscosity «*■* With artificial viscosity 


level 

chgutax 

chgavg 

resl2 

resavg 

resseax 

resmax loc. 

resi2 

resavg 

resmax 

resmax loc 

1 

O.OOOE+OO 

0 . 0O0E* 00 

1.391E-10 

2.561E-12 

2.354E-11 

( 

5, 

46) 

1 , 046E-09 

I.946E-11 

1, 157E-10 

< 

20, 

50) 

2 

O.QOOE+OO 

O.OOOE+OO 

1 . 125£»02 

1 . 725E+00 

2.160E+01 

( 

2, 

2) 

1 .123E+02 

1 .727E+00 

2 , 153E* 01 

{ 

2, 

2) 

10 

1.174E-02 

0 . 0O0E+ 00 

9 . 439E+01 

1 .524E+00 

2. 4C2C+ 01 

( 

16, 

50) 

6.449E>01 

1 .347E+00 

1,181E*01 

{ 

2, 

50) 

20 

.565E- 03 

0.000E+00 

4.700£^01 

6.519E-01 

9 . 234E+00 

( 

6, 

49) 

3 , 1 48E+ 0 1 

5-232E-01 

4. 983E^00 

( 

9, 

50) 

30 

8.677E-04 

0 . OOOE* 00 

1.978E*01 

2, 374E-01 

5. 950E+00 

( 

10, 

50) 

9 . 694E+00 

1.735E-01 

2. 017E^00 

C 

17, 

50) 

40 

4.418E-04 

0 . OOOE+ 00 

8.325E»00 

9. 466E-02 

3 . 261E+ 00 

( 

2, 

£0) 

1 .554E+00 

3.352E-02 

3.134E-01 

{ 

3, 

50) 

50 

4.900E-04 

0 . OOOE+OO 

9.727E>00 

9.824E-02 

2-883E+00 

( 

10, 

50) 

9 . 155E-01 

1 . 621E-02 

1.584E-01 

{ 

5, 

50) 

60 

4.596E-04 

0 . CODE* 0 0 

8.981E*00 

6.614E-02 

2. 722E + 00 

( 

10, 

50) 

5,594E-01 

1 . 045E-02 

8.S91E-02 

( 

2, 

13) 

70 

3.080E>04 

0 . 000E+ 00 

8.769E+00 

8.273E-02 

2. 634E+00 

( 

10, 

£0) 

3, 277E-01 

6.398E-03 

5.333E-02 

( 

2, 

11) 

80 

1.648E-04 

0 . CO0E+ 00 

8.397E+00 

7.93IE-02 

2. 539E+00 

( 

10, 

50) 

1.888E-01 

3.460E-03 

3.817E-02 

( 

3 , 

50) 

90 

7.953E-05 

0 . 000E+ 00 

8. 094E*00 

7 . 750E-02 

2. 469E+00 

C 

10, 

50) 

1 . 051E-01 

1.729E-03 

2.931E-02 

( 

3, 

50) 

100 

3.961E-05 

0 . OOOE+ 00 

7.971E*00 

7.685E-02 

2. 450E* 00 

( 

10, 

50) 

4.537E-02 

7.905E-04 

1.145E-02 

< 

3, 

50) 

110 

2. 001E-05 

0.000E*00 

7.948E*00 

7.673E-02 

2. 448E + 0 0 

< 

10, 

50) 

2.194E-02 

4. 134E-04 

3. 946E-03 

( 

2, 

9) 

120 

1.015E-05 

O.OO0E+O0 

7 ,94oE*00 

7 . 673E- 02 

2. 445E+ 00 

( 

10, 

50) 

1 - 196E-02 

2.221E-04 

2. 051E-03 

( 

3, 

44) 

130 

5. 181E-06 

0 . OOOE+ 00 

7 . 925E* 00 

7 . 667E- 02 

2. 441E*00 

{ 

10* 

50) 

7.243E-03 

1.232E-04 

1 .837E-03 

( 

3, 

50) 

140 

2.530E-06 

0 . 000E+ 00 

7,91 5E*00 

7.663E-02 

2.439E^0D 

( 

10, 

50) 

3, 405E-03 

5-734E-05 

9.701E-04 

( 

3, 

50) 

150 

1.217E-06 

o.oooe*oo 

7.912E*00 

7.661E-02 

2. 438E + 0 0 

( 

10, 

50) 

1 ,438$- 03 

2 - 641E-05 

2.676E-04 

( 

3, 

50) 

160 

6.252E-07 

0 . 000E+ 00 

7,91 1E*00 

7.660E-02 

2.438E+00 

( 

10, 

50) 

7.456E-04 

2 . 350E-05 

1 .641E-04 

( 

3, 

50) 

170 

3.156E-07 

0 . 000E* 00 

7,91 0E+00 

7.660E-02 

2. 438E* 00 

( 

10, 

50) 

4. 059E-O4 

6.727E-06 

1.144E-0< 

( 

3, 

50) 

180 

1 . 477E- 07 

O.OOQE+00 

7 . 909E+00 

7.660E-02 

2.438E^OO 

( 

10, 

50) 

1.728E-04 

3-027E-06 

4.309E-05 

( 

3, 

50) 

190 

7.415E-08 

0 . OOOE* 00 

7 . 909E*00 

7 , 660E- 02 

2.438E-00 

( 

10, 

50) 

8, 463E-05 

1 .622E-06 

1 .491E-05 

( 

3, 

50) 

200 

3.853E-08 

0 .QQ0E+00 

7 . 909E+00 

7 . 659E- 02 

2, 438E+ 00 

( 

10, 

50) 

5. 003E-05 

9.401E-07 

1 . 11 IE-05 

( 

3, 

50) 


Convergence history for x-moeientuni equation 

■■■■ without artificial viscosity With artificial viscosity 


level 

chgmax 

chgavg 

resl2 

resavg 

resmax 

resmax loc. 

resl2 

resavg 

resmax 

resmax loc 

1 

0 . OOOE* 00 

0 , 000E* 00 

2.838E-09 

5.347E-U 

5.487E-10 

£ 18, 

50) 

3. 008E-09 

5.676E-11 

4.506E-10 

C 

18, 

50) 

2 

O.OOOE+OO 

0 . 000E+00 

4.804E*02 

7. 178E+00 

8.874E*01 

( 2, 

3) 

4.770E*02 

7 . 137E*00 

8.547E* 01 

£ 

2, 

3) 

10 

5.013E-02 

0.000E+0O 

3.268E*02 

S.660E+00 

9 . 730E*01 

£ 2, 

49) 

2.632E*02 

5.375E+00 

6.27 0E* 01 

( 

2, 

50) 

20 

1.326E-02 

Q.0QSE+00 

1 .550E+02 

2.484E*00 

4 . 158E* 01 

( 5, 

49) 

1 . 055E*02 

1 ,756E*00 

2. 392E* 01 

£ 

3, 

50) 

30 

1 . 717E-02 

0 . 000E* Q0 

6 . 776E* 01 

1.S02E-00 

1.265E*01 

£ 7, 

50) 

3. 087E*01 

6.419E-01 

5. 1 75E*00 

( 

20, 

50) 

40 

1.318E-02 

0 . 0 O0E+ 00 

4 . 61 7E*01 

8.237E-01 

1.624E-01 

< 2, 

50) 

1 ,902E*01 

4.082E-01 

2. 223E*C0 

C 

7, 

49) 

50 

8. 716E-03 

0.00 0E+ 0 0 

3-414E+01 

5.833E-01 

1 .321E+01 

£ 2, 

50) 

1 . 187E*01 

2. 266E-01 

1 . 666E*00 

C 

2, 

20) 

60 

4. 964E-03 

O.OOOE+OO 

2. 918E* 0 1 

4.504E-01 

1.226E*01 

( 2, 

50) 

6 . 928E*00 

1.301E-01 

1 . 062E+ 00 

t 

2, 

17) 

70 

2, 967E-03 

O.OOOE+OO 

2*760E*01 

4, 079E-01 

1.161E*01 

( 2, 

50) 

3.630E*00 

6-774E-02 

5. 766E-01 

£ 

2, 

14) 

80 

1 . 501E-03 

0 . OD0E+OO 

2.667E*0i 

4. 07 IE— 01 

1.054E*01 

< 2, 

50) 

1 .81 4£*00 

3.477E-02 

2.785E-01 


2, 

13) 

90 

7.426E-04 

0 . 0 00E* 00 

2.606E*01 

4.135E-01 

9 . 7 1 9E * 0 0 

( 2, 

50) 

9 . 171E-01 

1 .750E-02 

1.378E-01 

C 

2, 

50) 

100 

3. 712E-04 

0 . 000E* 00 

2.587E*01 

4. 168E-01 

9 . 372£*00 

( 2, 

50) 

4.641E-01 

9 . 083E-03 

6.773E-02 

C 

2, 

11) 

no 

1.851E-04 

O.OOOE+OO 

2.595E* 01 

4, 193E-01 

9 . 323E*00 

( 2, 

50) 

2.359E-01 

4.555E-03 

3.347E-02 

c 

2, 

11) 

120 

9 . 473E-05 

0. OOOE* DO 

2.600E*01 

4.211E-01 

9 . 297E+00 

£ 2, 

50) 

1 .208E-01 

2.285E-03 

1.737E-82 

£ 

6, 

393 

130 

4. 751E-05 

O.OOOE+OO 

2.599E*01 

4.218E-01 

9.249E*00 

( 2, 

50) 

6 . 1 12E-02 

1 . 164E-03 

8.743E-03 

£ 

2, 

50) 

240 

2. 270E-05 

0. OOOE* 00 

2.598E*01 

4.220E-01 

9.220E+00 

( 2, 

50) 

2.877E-02 

5.506E-04 

4. 373E- 03 

( 

2, 

50) 

150 

1 . 140E-05 

0. OOOE+OO 

2.598E*01 

4.222E-01 

9.212E*-00 

( 2, 

50) 

1.382E-02 

2.615E-04 

2.037E-03 

l 

2, 

m 
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160 

5.877E- 06 

170 

2. 766E-06 

180 

1 . 358E-Q6 

190 

7 . 195E-07 

200 

3.402E-G7 


0. OOOE+OO 
0. OOOE+OO 
0 . OOOE+OO 
0. OOOE+OO 
0. OOOE+OO 


2. 598E+ 0 1 
2. 595E+01 
2. 598E+ 01 
2. 596E+01 
2.5986+01 


4.222E-01 

4.223E-Q1 

4.2236-01 

4.223E-01 

4.2236-01 


9 . 205E+ 00 
9 . 2056*00 
9 . 204E+00 
9. 203E+00 
9 . 2036+00 


( 2, 50) 

( 2, SO) 

( 2, 50) 

C 2, SO) 
( 2, SO) 


7.039E-03 

3.480E-03 

1.6646-03 

8.7476-04 

4.931E-04 


1.3386-04 

6.649E-05 

3.304E-05 

I.714E-05 

9.596E-06 


1.032E-03 

5.258E-04 

2.591E-04 

1.259E-04 

7.92SE-05 


< 2 , 11 ) 

( 2, SO) 

( 2, 23) 

( 2 , ID 

( 2 , 24) 


Convergence history for 


level chgmax chgavg 


1 

O.000E*Q0 

0 . OOOE* 00 

2 

0.00 OE + OO 

0. OO0E*O0 

10 

4.443E-02 

0 . OOOE* 00 

20 

6 . 572E-03 

0 . OOOE* 00 

30 

9.466E-03 

0. OOOE*O0 

40 

1. 120E-02 

D . OOOE* 00 

50 

1.026E-02 

0. 000E*00 

60 

6 . 902E-03 

0 . OOOE* 00 

70 

3. 666E-03 

0 . 0 0 0E* 00 

80 

1.808E-03 

0. OOOE*00 

90 

9.717E-04 

0. QO0E*00 

100 

5.046E-04 

0. OOOE+OO 

110 

2. 473E-04 

0. OOOE+OO 

120 

1 .240E-O4 

0. OOOE+OO 

130 

6.170E-05 

0. OOOE+00 

140 

3.022E-05 

0. OOOE+OO 

150 

1.551E-05 

0. OOOE+OO 

160 

7 . 682E-06 

0. OOOE+OO 

170 

3. 632E- 06 

0. OOOE+OO 

180 

1.861E-06 

0. OOOE+OO 

190 

9 . 284E-07 

0 . 000E+00 

200 

4. 299E-07 

0. 000E+00 

STOP 

(called by 

MAIN ) 


y-momentum equation 

u«> without artificial viscosity 
r es!2 resavg resnax resmax loc. 


2. 679E-09 

4.900E-11 

6.1096-10 

( 

15, 

46) 

3. 649E+02 

6.2586+00 

5.732E+01 

( 

16, 

2) 

2. 749E+02 

5.418E+00 

7.3926+01 

( 

14, 

50) 

1.652E+02 

2.501E+00 

3.8916+01 

( 

10, 

49) 

8. 003E+01 

1 . 1836+00 

2.4266+01 

( 

10, 

50) 

3.611E+01 

6 . 420E-01 

1.055E+01 

( 

10, 

50) 

3. 831E+01 

5. 167E-01 

1 . 242E+01 

( 

10, 

50) 

3. 3956+01 

4. 190E-01 

1 . 160E+0 1 

< 

10, 

50) 

3-294E + 01 

3.903E-01 

1.117E+01 

( 

10, 

50) 

3. 1926+01 

3.793E-01 

1.0776+01 

( 

10, 

50) 

3.1156+01 

3.769E-01 

1 . 047E+01 

( 

10, 

50) 

3.088E+01 

3.791E-01 

1.033E+01 

( 

10, 

50) 

3.0856+01 

3.797E-01 

1.0376+01 

( 

10, 

50) 

3.0856+01 

3.808E-01 

1. 035E+01 

( 

10, 

50) 

3. 082E+01 

3.612E-01 

1.0336+01 

( 

10, 

50) 

3.0806+01 

3 .8136- 01 

1.0336*01 

( 

10, 

50) 

3.079E+01 

3.814E-01 

1.0326*01 

C 

10, 

50) 

3.079E+01 

3-814E-01 

1. 032E+01 

( 

10, 

50) 

3. 079E+01 

3.814E-01 

1. 032E+01 

( 

10, 

50) 

3. 079E+01 

3.814E-01 

1.032E+01 

( 

10, 

50) 

3. 079E+01 

3.8146-01 

1 .C32E+01 

( 

10, 

50) 

3.079E+01 

3 . 814E-01 

1 .032E+01 

{ 

10, 

50) 


in* With artificial viscosity 
12 resavg resmax resmax loc. 


2.679E-09 
3.6376*02 
2.1246*02 
1 .1276*02 
2.9656*01 
1 .7146*01 
1 ,220E*01 
8.298E*00 
4.9556*00 
2.5936*00 
1.3006*00 
6 -622E-01 
3.333E-01 
1.702E-01 
8. 763E-02 
4. 175E-02 
i. 9536-02 
9.856E-03 
4.932E-03 
2.399E-03 
1.2656-03 
7.2426-04 


4. 900E- 1 1 
6 . 237E+00 
5. 1596*00 
1 .8496*00 
5-691E-01 
3.868E-01 
2.2B4E-01 
1.400E-01 
3. 192E-02 
4.5126-02 
2.316E-02 
1.171E-02 
5. 8276-03 
2.654E-03 
1 . 51 2E- 03 
7.334E-04 
3.383E-04 
1.6836-04 
6.424E-05 
4.108E-05 
2.1096-05 
1.207E-05 


6.109E-10 
5.826E+01 
2.592E+ 01 
2 . 254E+ 01 
0 . 716E+00 
1 .7566*00 
1.6536*00 
1 . 287E+ 00 
B.331E-01 
4.502E-01 
2. 1616-01 
1.099E-01 
5.686E-02 
2.907E-02 
1.455E-02 
6.981E-03 
3.474E-03 
1 .8096-03 
8.711E-04 
4.189E-04 
2.208E-O4 
1.4566-04 


( 

15, 

46) 

( 

16, 

2) 

( 

8, 

50) 


10, 

50) 


11, 

50) 


4, 

48) 


5, 

49) 


4, 

6) 


3, 

7) 


3, 

7) 


3, 

7) 


3, 

6) 


3, 

6) 


3, 

6) 


3, 

6) 


3, 

6) 


3, 

6) 


3, 

6) 


3, 

6) 


3, 

6) 


3, 

6) 


3, 

26) 


This case used 6.1 seconds of CPU time. 


Standard Proteus Output for Viscous Flow Case 

The output listing for the viscous flow case is shown below. In the flow field printout, only the last time 
level is included. Note that a converged solution is obtained at time level 360, and that this level is auto- 
matically included in the standard output and in the plot file. 


NASA Lewis Research Center 
Internal Fluid Mechanics Division 
2-d Proteus version 2.0 
January 1992 


Viscous Flow Past a Circular Cylinder 


NRXIN = 13, NRXOUT = 14, 


101*0 

t 

I PRT = 

10000, 

24, 

26, 

28, 

30, 32, 

16, 

18, 

20, 

22, 24, 

2, 

32, 

47* 0 1 

, IWOUT1 


IPRT1 

34, 

26, 


SRSTRT IREST = 0, NRQIN * 11, NRQOUT = 12, 

610 IDEBUG = 20*0, IPLOT * 3, IPIT = 0, I PITA 
2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 

24*0, IPRT2A = 1, 2, 4, 6, 8, 10, 12, 14, 

46, 48, 50, 51, 24*0, IUNITS = 0, IVOUT = 1 

SSS mN r T »OEOH 5KT R«n .TS; "thmax riw.i, twin . 0.0. XHAX . ... 

YMIN = 0.0, SEND 

6FL0W GAMR =1.4, HSTAGR = 0.0, ICVARS = 2, 


= 2 , 

36, 36, 

26, 30, 

, INOUT2 


IPRT2 = 2, IPRTA = 101*0, IPRT1A = 1, 


40, 42, 44, 

32, 34, 36, 

2*0, NGRID 


46, 

38 

7, 


48, 50, 51, 

40, 42, 44, 

NHIST = 10, 


WSCR1 = 20, SEND 


XMIN = 0.0, YMAX = 1.0, 


TPUl FR = o IHSTAG = 1. ILAMV = 0, ISWIRL * 0, ITHIN = 2*0, KTR = 0.0, 
WTKE = l, PRT = 0.91, REXT1 = 0.0, REXT2 = 0.0, TFACT = 1.0, SEND 


Normalizing conditions 


Length, lr = 
Velocity, ur * 
Temperature, tr * 
Density, rhor * 
Viscosity, mur * 
Thermal conductivity, fctr = 
Pressure, rhor*ur""2 1 
Energy/vol., rhor*ur**2 * 
Gas constant, ur*«2/tr * 
Specific heat, ur*«2/tr * 
Stagnation enthalpy, ur*«2 = 
Time, lr/ur * 


1.0000E+00 
2. 2332E+ 02 
5. 1900E+02 
7 . 6450E- 02 
8.5366E-01 
1.0192E-01 
3.8129E+03 
3 . 8129E+ 03 
9. 6096E+01 
9. 6096E+O1 
4 . 9874E+04 
4 . 4778E- 03 


ft 

ft/sec 

deg R 

lbm/ft3 

lbm/f t-sec 

lbm-f t/sec3-deg R 

lbm/f t-sec2 

lbm/f t-sec2 

ft2/sec2-deg ft 

f t2/sec2-deg R 

f t2/sec2 

sec 


Reference conditions 


Reynolds number, rer 
Mach number, raachr 
Specific heat ratio, gamr 


= 2. 0 0 O0E+0 1 
= 2- 0 000E-O1 
= 1 .40006*00 
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Laminar Prandtl number, prlr = 5.0306E+04 

"Reference" Prandtl number, prr = 8.Q489E+D2 

Specific heat at const, press. = 6.0C60E+03 ft2/sec2-deg R 

Specific heat at const, vol. = 4.2900E+03 ft2/sec2-deg R 

Gas constant, rg = 1.7160E+03 ft2/sec2-deg R 

Pressure, pr = 2.1162E+03 lbf/ft2 

Stagnation enthalpy, hstagr = 3.1421E+06 ft2/sec2 


Boundary condition parameters 


3bc2(l,2) = 

-1 

gbc2( 1 , 2) * 

O.OOOOE+OO 

Jbc2(2, 2) = 

-1 

gbc2(2,2) = 

O.OOOOE+OO 

jbc2(3,2) = 

-1 

gbc2(3,2) = 

O.OOOOE+OO 


jbcl (1,11 3 

42 

gbcl (1,1) = 

O.OOOOE+OO 

jbcl (1,21 * 

42 

gbcl Cl ,2) = 

0. OOOOE+OO 

jbcl <2, 1) * 

12 

gbcl (2,1) = 

O.OOOOE+OO 

jbcl (2, 21 = 

12 

gbcl (2,2) = 

O.OOOOE+OO 

jbcl (3, 1 ) * 

21 

gbcl ( 3 , 1 ) = 

O.OOOOE+OO 

jbcl (3, 2 ) = 

21 

gbcl ( 3 , 2 ) * 

O.OOOOE+OO 



jbc 2 (l, 1 ) = 

42 

gbc 2 (l , 1 ) 

= 

O.OOOOE+OO 


jbc 2 ( 2 ,l) * 

n 

gbc 2 ( 2 , 1 ) 

= 

O.OOOOE+OO 


j be 2(3,1) = 

21 

gbc2(3, 1 ) 

= 

O.OOOOE+OO 

x-velocity 

at time level 360 





ixi 3 i 

2 4 6 


8 

10 

12 


51 9.6267E-01 9.66IOE-01 9.776SE-0! 1.0003E+00 1.0142E+00 1.01S1E+00 1.0113E+00 l.OOOlE+OO 1.0003E+00 1.0006E+00 

50 9.6610E-01 9.6610E-01 9.7765E-01 l.OQQSE+OO 1.0142E+00 1.0I51E+0Q 1.0113E+00 1.0078E+00 1.0074E+00 1.0Q72E+00 

4® 9. 4739E-01 9 . 4739E-01 9.6495E-01 9.9680E-01 1.0152E+00 1.0174E+00 1.0168E+00 1.0178E+00 1.0I80E+00 1.0175E+00 

46 9. 1498E-01 9.1498E-01 9.4529E-01 9.9579E-01 1.0205E+00 1.0209E+00 1.0198E+00 1.O224E+O0 1.0242E+00 1.0241E+00 

44 8 , 6066E- 01 8-6O68E-01 9.1280E-01 9.9483E-01 1.0305E+00 1.0282E+00 1.0257E+C0 1.O29OE+O0 1.0312E+00 1.0314E*00 

42 7 . 766SE-0 1 7.7663E-81 8.6040E-01 9.8977E-01 1.0455E+00 1.0421E+00 1.0373E+00 1.0405E+00 1.0425E+00 1.0421E+00 

40 6.5801E-01 6.5801E-01 7.7921E-01 9.7073E-01 1.0625E+00 1.0649E+00 1.0569E+00 1.0582E+00 1.0593E+00 1.0577E+00 

3® 5.0790E-01 5 . 0790E-01 6.6120E-01 9-1947E-01 1.0702E+00 1.0962E+00 I.0871E+00 1.0834E+00 1.082IE+00 1.0787E+00 

36 3.4250E-01 3.4230E-01 5.0810E-01 6.1517E-01 1.0428E+00 1.1237E+00 1.1271E+00 1.1180E+00 1.1117E+00 1.1052E+00 

34 1.6780E-01 1.6780E-01 3.3899E-01 6.518IE-01 9.4608E-01 1.1127E+00 1.1622E+0O 1.1600E+00 1.1485E+00 1.1372E+00 

32 6.7106E-02 6.7I06E-02 1.8537E-01 4.5544E-01 7.6781E-01 1.0170E+00 1.1S14E+00 1.1914E+00 1.1884E+00 1.1744E+00 

30 -1 . 1 141E-02 -1 . 1 141E-02 7.1475E-02 2.7325E-01 5.4509E-01 S.2377E-01 1.0431E+00 1.1663E+00 1.2088E+00 1.2096E+00 

2® -5.2952E-02 -5.2952E-02 1.2295E-03 1.3791E-0I 3.4018E-01 5.8445E-01 8.3294E-01 1.0355E+00 1.1599E+00 1.2131E+0Q 

26 -6.9252E-02 -6.9252E-02 -3.4973E-02 5.2467E-02 1.8883E-01 3.6983E-01 5.8581E-01 8.1011E-01 1.0026E+00 1.1338E+00 

24 -6 . 9392E- 02 .-6-9392E-02 -4.8606E-02 4.7725E-03 9.1064E-02 2.1261E-01 3.7222E-01 5.6459E-01 7.6667E-01 9.5247E-0I 

22 -6.0291E-02 -6.0291E-02 -4.8654E-02 -1.8184E-C2 3.3154E-02 1.C960E-01 2.1747E-01 3.6070E-01 5.3400E-01 7.1972E-01 

20 -4.7171E-02 -4.7171E-02 -4.1662E-02 -2.6257E-02 1.765SE-03 4.6946E-02 1.1587E-01 2.1494E-01 3.4607E-01 5-0290E-01 

18 -3. 3786E-02 -3.3786E-02 -3.2198E-02 -2.6257E-02 -1.3036E-02 1.1724E-02 5.3826E-02 1.1951E-01 2.1301E-01 3.3371E-01 

16 -2.2362E-02 -2.2362E-02 -2.3C54E-02 -2.2579E-02 -1.8107E-02 -5.9167E-03 1.8733E-02 6.1071E-02 I.2551E-01 2.1381E-01 

14 -1 . 3750E-02 -1.3750E-02 -1.5544E-02 -1.7787E-02 -1.7954E-02 -1.2967E-02 8.5216E-04 2.7556E-02 7.0953E-02 1.3348E-01 

12 -7.8600E-03 -7.8600E-03 -9.9725E-03 -1.3170E-02 -1.5364E-02 -1.41SQE-02 -6.7407E-03 9.7728E-03 3.8398E-02 8.1487E-02 

10 -4. 1517E-03 -4.1517E-03 -6.U14E-03 -9.2435E-03 -1.1937E-02 -1.2381E-02 -8.6465E-03 1.3338E-03 1.9748E-02 4.8542E-02 

6 -1.9891E-03 -1 . 9891E-03 -3.5567E-03 -6.1124E-03 -8.5082E-03 -9.4741E-03 -7.7231E-03 -1.8989E-03 9.4937E-03 2.7901E-02 

6 -8.2689E-04 -8.2689E-04 -1.9158E-03 -3.7040E-03 -5.4S46E-03 -6.3576E-03 -5.6263E-03 -2.4454E-03 4.U47E-03 1.5009E-02 

4 -2.6577E-04 -2.6577E-04 -8.7927E-04 -1.8889E-03 -2.9023E-03 -3.4882E-03 -3.2429E-03 -1.7536E-03 1.4629E-03 6.9262E-03 

2 -4.2072E-05 -4.2072E-05 -2.2897E-04 -5.S662E-04 -®.5011E-«4 -1.0430E-03 -1-0003E'03 -6.0581E-04 2.7968E-04 1.8107E-03 

1 O.OOOOE^OO 0 . 00 OOE+00 0 . OOOOE*OC 0 . 000QE+00 0.0000E*00 O.OOOOE^OO O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO 

ixi = 20 22 24 26 28 30 32 34 36 38 

i 51* 1 . 0008E+00 1.001 DE*C0 l.OOHE^OO 1.0011E*00 1.00L1E*00 1.0010E+00 1.0008E+00 1.0006£*00 1.0003E^OO l.OOOlE^OO 

50 1 . 0069E+00 1 . 0066E+00 1.0060E*00 1.0053£*00 1.0043E*00 1.0031E+00 1.0018E*00 1.0004E+00 9.9898E-01 9.9759E-01 

48 1 . 0 165E+ 00 1 . 0 153E*00 1.0138E*00 1.0120E+00 1.0100E*00 1.0078E*00 1.0055E^OO 1.0032E*00 1.0009E+00 9.9881E-01 

46 1 . 0232E+ 00 1.0216E*00 1.0195E*00 1.0170E*00 1.0141E+00 1.0111E + 00 1.0079E*00 1.004^*00 1.0016E*00 9.9893E-01 

44 1 . 0303E+ 00 1 . 0283E* 00 1.0256E*00 1.0222E^00 1.0183E+S0 1.0142E+00 1.009&E*00 1.0055£^00 1.0013E+00 9.9744E-Q1 

42 1 . 0403E* 00 1 . 0374£*00 i.0335E*00 1.0288E-06 1.0235E*00 1.5I78E*00 1.0119E*00 1.0060E*00 1.0003E+00 9.9500E-01 

40 1.0544E»00 1.0498E*00 1.0441E+00 1.0374E*80 1.0300E+00 1.0221E+00 1.0140E*00 1,00606*00 9.9821E-Q1 9.9094E-01 

38 1 . 0732E+D0 1.0662E+00 ].0579E*00 1.0465E*00 1.03®3E*00 1.0274E*00 1.0164E*00 1.0053E*00 9.9467E-01 9.8469E-01 

36 1 0968E* 00 1.0868E+00 1.0753E^00 1.0624E*00 1.0685E*06 1.0339E+00 1.0189E*00 1.0039E*00 9.8932E-C1 9.7562E-01 

34 1 . 1252E* 00 l.lUTE^OO 1.0964E^00 1.0795E*0ff I.a612E*00 1.0418E+00 1.0218E*00 1.0C16E*C0 9.8U6E-01 9.6313E-01 

32 1 . 1583E*00 1.1409E*00 l.i217E«00 1.1003E«00 1.0770E*00 1.0519E*00 1.0257E*00 9.9889E-01 9.7235E-01 9.4691E-01 

30 1 . 1949E* 00 1 . 1 748E+00 1.1518E*00 1.1259E*00 1.0970E*00 1.0654£*00 1.0317E+00 9.9664E-01 9.6137E-01 9.2711E*01 

28 1.2222E+00 1.2097E+00 1.1866E*00 1.1572E*00 1.1228E*00 1.0839E+00 1 1.0414£»00 9.9629E-01 9.5009E-01 9.0452E-01 

26 1 . 2021E* 00 1 . 2237E»00 1.2162E+00 1.1910E*00 1.1541E*00 1.1086E*00 1.0565E*00 9.9964E-01 9.4019E-01 8.8062E-01 

24 1 . 089AE* 00 1 . 1726E*60 1.2075E*00 1 .2064E*00 1.1795E«00 1.1340E+00 1.0750E+00 1.0067E*00 9.327OE-01 8.5696E-01 

22 8.9253E-01 1.0301E+00 1.1209E*00 1.1648E^00 1.1677E*00 1.1377E+00 1. 0823E-00 1.0087E*00 9.2316E-01 8.3199E-01 

20 6.7017E-01 8.2764E-01 9.5654E-01 1.0447E*00 1.0878E*00 1.0879E+00 1.0509E*00 9.8424E-01 8.9656E-01 7.9648E-01 

18 4.7435E-01 6 . 2151E-01 7.5847E-01 8.6940E-01 9.4295E-01 9.7377E-01 9.6231E‘01 9.1348E-01 8.3516E-01 7.3697E-01 

16 3.2334E-01 4.4627E-01 5.7044E-01 6.8163E-01 7.6673E-01 8-H34E-01 8.2625E-01 7.9745E-01 7.3536E-01 6.4851E-01 

14 2. 1482E-01 3. 1 076E-01 4.1320E-01 5.1099E-01 5.9231E-01 6.4706E-01 6.6876E-01 6.5560E-01 6.1035E-01 5-3949E-01 

12 1.3971E-01 2.11 0 IE- 01 2.9012E-01 3.6897E-01 4.3809E-01 4.8845E-01 5.I338E-01 S. 0979E-01 4.7858E-01 4.2425E-01 

10 8.8671E-02 1.3924E-01 1.9696E-01 2.562SE-01 3.1005E-01 3.5119E-01 3.7391E*0l 3.7500E-01 3.5437E-01 3.1491E-01 

8 5.4209E-02 8.8104E-02 1.2762E-01 1.6908E-01 2.0760E-01 2.3800E-01 2.5587E-01 2.5852E-01 2.4550E-01 2.1856E-01 

6 3.0898E-02 5.1726E-02 7.639OE-02 1.0267E-01 1.2750E-01 1.4750E-01 1.5973E-01 1.6227E-01 1.5464E-01 1.3785E-01 

4 1.5024E-02 2.5779E-02 3.8668E-02 5.2557E-02 6.5832S-02 7.6682E-02 8.3484E-02 8.5150E-02 8.1353E-02 7.2582E-02 

2 4.1083E-03 7.1910E-03 1.0917E-02 1.4966E-02 1.8869E-02 2.2091E-02 2.4145E-02 2.4699E-02 2.3642E-02 2.I107E-02 

1 O.OOOOE+OO O.OOOOE^OO 0.O00DE*00 0.8900E+00 O.OOOOE+OO O.OOOOE^OO 0. OOOOE-^OO O.OOOOE+OO O.OOOOE+OO O.OOOOE*OD 

ixi = 40 42 44 46 48 50 51 

ieta 

51 9 . 9979E- 01 9.9953E-01 9.9929E-01 9.9910E-01 9.9897E-01 9.9890E-01 9.94I4E-01 

SO 9. 9629E-01 9.9513E-01 9.9417E-01 9-9343E-01 9.9295E-01 9.9278E-01 9.9278E-01 

48 9.9686E-01 9.9515E-01 9.9373E-01 9.9265E-01 9.9200E-01 9.9179E-01 9.9179E-01 

46 9. 9638E-01 9.9416E-01 9.9235E-01 9.9102E-01 9.9023E-01 9.9000E-01 9.9000E-81 

44 9.9391E-01 9.9086E-01 9.6838E-01 9.8656E-01 9.8550E-01 9.8518E-01 9.8518E-01 

42 9.9021E-01 9.86Q7E-01 9.8270E-01 9.8023E-01 9.7877E-01 9.7831E-01 9-7831E-01 

40 9 . 8437E- 01 9.7870E-01 9.7409E-01 9.7069E-01 9.6664E-01 9.6798E-01 9.6798E-01 

3® 9.7566E-01 9.6784E-01 9.6146E-01 9.5671E-01 9.5382E-01 9.5284E*01 9.5284E-01 

36 9.6318E-01 9.5235E-01 9.4346E-01 9.3681E-01 9.3269E-01 9.3124E-01 9.3124E-01 

34 9.4600E-01 9.3I06E-5I 9.1860E-01 9.0925E-01 9.0337E-01 9.0122E-01 9.0122E-01 

32 9.2341E-01 9.0265E-01 8.8539E-01 8.7226E-01 8.6388E-01 8.6071E-01 8.6071E-Q1 

30 8. 9509E- 01 8.6656E-01 8.4263E-01 8.2429E-01 8.1245E-01 8.0783E-01 ®.07®3E-01 

28 8.6142E-01 8.2261E-01 7.8979E-01 7.6446E-01 7.4794E-01 7.4132E-01 7.4132E-01 

26 8. 2356E-01 7.7166E-01 7.2740E-01 6.9300E-01 6.7040E-01 6.6114E-01 6.6114E-01 

24 7.8330E-01 7.1554E-01 6.5.725E-01 6.1164E-01 5-8144E-01 5.6887E-01 5.6887E-01 

22 7.4109E-01 6.5604E-b'r 5.ei99E-01 5.2348E-01 4.8440E-01 4.6786E-01 4.67S6E-01 

20 6.9247E-01 5.9250E-01 5.0378E-01 4.3261E-01 3.8440E-01 3.6360E-01 3.6360E-01 

18 6.2913E-01 5 . 2167E-01 4.2385E-01 3.436SE-01 2.8856E-01 2.6407E-01 2.6407E-01 

16 5.4721E-01 4 . 423DE-01 3.4420E-01 2.6224E-01 2.0445E-01 1.7804E-01 1.7804E-01 

14 4.5207E-01 3-5S31E-01 2.6849E-01 1.9205E-01 1.3713E-01 1.1121E-01 1.1121E-01 

12 3.5395E-01 2.7639E-01 2.0064E-01 1.3523E-01 8.7525E-02 6.4288E-02 6.4288E-02 
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8 

6 

4 

2 

1 


2.6193E-0I 
1.8I37E-01 
1 . 1415E-0 1 
6.0Q29E-02 
1.7438E-02 
0 . 00 OOE* 00 


2. 0220E- 01 
I.3877E-01 
8.6760E-O2 
4.5374E-02 
1 .3131E-02 
0. OC0QE*O0 


1 .4302E-01 
9.6126E-02 
5.9116E-02 
3.0523E-02 
8.7516E-03 
0. OOOOE*CO 


y op r-velocity 


at time level 


3$ 0 


1 

0 . 0 D 0 OE* 00 
0 . 0 0 0 OE* 0 0 

o.ooooe*oo 

0. 0000E*0D 
0. OOOOE+OO 
0. D000E*00 
0. OOOOE*OD 
0 . 0 000E*0 0 
O.OOOOE*CO 
0. OO0flE*OO 
0. OO0OE*O0 
0 . OOOOE* 00 
0 . 0 090E*00 


ixi * 
ieta 
51 
50 
<8 
46 
44 
42 
40 
38 
36 
34 
32 
30 
28 
26 
24 
22 
20 
18 
16 
14 
12 
10 
8 
6 
4 
2 
1 


Ixi 
ieta 

51 -7 . 6061E-04 
50 -2.8382E-03 
48 -4. 4659E-03 
46 -3.3593E-03 
44 -1.2404E-03 
42 2. Oil 4E -03 

7.5799E-03 
1 .6855E-02 
3.1051E-02 
5.0882E-02 
7.6344E-02 
1 . 0585E- 01 
1.3219E-01 
1.3920E-01 
1.1460E-01 
6.8999E-02 
2.5039E-02 
-4 . 9260E-03 


-5.2152E-Q3 
-5.2152E-03 
-6. 4085E- 03 
-1 . 3849E- 02 
-2. 0589E- 02 
-2 .87 15E-02 
-3 . 7053E- 02 
-4 . 2989E- 02 
-4 . 3644E- 02 
-3 - 7966E- 02 
-2.S025E-02 
-1.7517E-02 
-8. 851 7E-03 
-2. 3379E-03 


-1.2705E-02 
-1.2705E-02 
-2 . 0706E- 02 
-3.3519E-02 
-4.8785E-02 
- 6 . 7387E- 02 
-8.7461E-02 
-1.0364E-01 
-1.0856E-01 
-9.7546E-02 
-7.3745E-02 
-4.6526E-02 
-2.3258E-02 
-5.4739E-03 


9 . 1374E- 02 
5.8635E-02 
3. 4686E-02 
1 . 7352E-02 
4.8576E-03 
0. OOOOE*QO 


-1 . 2575E-02 
-1.2575E-02 
-1 . 9766E-02 
-3. 0432E-02 
-4. 2409E-02 
-5. 7922E-02 
-7. 7579E- 02 
-9 . 8697E- 02 
-1 . 1 41 IE-01 
-1.1441E-01 
-9.5863E-02 
-6.5744E-02 
-3.5295E-02 
-1 . 0020E-02 


5. 3294E- 02 
3. 0783E- 02 
1 .6447E-02 
7.4874E-03 
1 .93526-03 
0 . 000 OE* 0 0 


3 . 4206E- 02 
1.6464E-02 
6.8640E-03 
2.21 07E-03 
3.5040E-04 
0. 00DOE*00 


3.4206E-02 
1 .6464E-02 
6.8640E-03 
2.21 07E-03 
3.5040E-04 
0. Q0OOE*OO 


0 . Q00QE*00 

2 . 541 3E-03 

7.9844E-0S 

9.8257E-03 

0 . Q000E*00 

6 . 1 098E-03 

1 .7879E-02 

2-4673E-02 

0. OOOOE *00 

8 . 4064E-03 

2.422OE-02 

3.4301E-02 

0. OOOOE*CO 

9 . 4405E-03 

2. 6990E- 02 

3.8607E-02 

0. DOOOE*00 

9 . 3622E- 03 

2.6614E-02 

3. 8224E-02 

0. OOOOE*DO 

8. 4616E- 03 

2.3935E-02 

3- 4423E-02 

0 . 00 OOE* 00 

7.0767E-03 

1 .9928E-02 

2.8666E-02 

O.O00OE*00 

5 . 5049E- 03 

1 .5441E-02 

2. 2206E-02 

0. 0000E*00 

3. 9594E- 03 

1 .1069E-02 

1.5915E-02 

0. 00O0E*00 

2 . 5655E- 03 

7.1531E-03 

1 . 0282E- 02 

0 . OOOOE*OQ 

1 .3783E-03 

3.8349E- 03 

5.5125E-03 

0. OQOOE*flO 

4.0672E-04 

1.1299E-03 

1.6244E-03 

0 . 0 0Q0E*00 

0. 00 OOE* 00 

0 . OOOOE*OC 

0 .OOOOE* 00 

20 

22 

24 

26 


40 
38 
36 
34 
32 
30 
28 
26 
24 
22 
20 
16 

16 -2.0351E-02 
14 -2.531 IE-02 
12 -2.4128E-02 
10 -1.9983E-02 


-5. 3528E- 04 
-1.3612E-03 
- 1 . 7638E- 03 
2. 0068E-04 
3. 4756E-03 
8. 3097E-03 
1.5846E-02 
2. 7398E- 02 
4. 4140E- 02 
6.6712E-02 
9.4951E-02 
1 .2778E-01 
1 .6126E-01 
1 .8324E-01 
1 .7568E-01 
1 .3494E-01 
8 . 0584E-02 
3. 3922E-02 
3. 191 IE-03 
-1 . 2866E-02 
-1.8621E-02 
-1.828OE-03 


8 -1.4647E-02 -1.4904E-02 
6 -9.7921E-03 -1.0411E-02 
4 -5.3125E-03 -5.6674E-03 
2 -1.5714E-03 -1 . 7807E- 03 


-2.7632E-04 
1 .4306E-04 
7.4539E-04 
3. 4345E- 03 
7 . 6766E- 03 

I . 3803E-O2 
2 . 2973E- 02 
3.6447E-02 
5.5388E-02 
8.0503E-02 

J. 1172E-01 
1 .4816E-01 
1.8754E-01 
2.2201E-01 
2.3405E-01 
2.0892E-01 
1 . 5503E-01 
9.6242E-02 
4.934OE-02 
1.8663E-02 
1 .7228E-03 

-5.7635E-03 
-7.5897E-03 
-6.4539E-03 
-4 . 0428E- 03 
-1 .3052E-0S 


-2. 9665E-1 1 
1 . 5865E- 03 
2. 9463E-03 
6. 1916E-03 
1 . 1226E-02 
1.8381E-02 
2. 885 IE- 02 
4.3869E-02 
6.4635E-02 
9.1996E-02 
1.2612E-01 
l . 6639E- 01 
2. 1 I34E-0I 
2. 5620E- 01 
2.8681E-01 
2.8310E-01 
2. 4045E-01 
1.7766E-01 
1 . 1722E-01 
7.0511E-02 
3. 9 001E-62 
1. 9726E-02 
8.8991E-03 
3. 36 04E-03 
8. 9056E-04 
7.8695E-05 


1 

0. OO00E*00 

0.000 OE* 00 

o.ooooe*oo 

0. 

ixi 

40 

42 

44 


ieta 

51 

1 . 0914E-03 

1 . 0054E-03 

8.5613E-04 

6. 

50 

5. 271 IE-03 

4 . 6697E-03 

3 . 847 OE- 03 

2. 

48 

7.3864E-03 

6 . 4851E-03 

5.3O13E-03 

3. 

46 

1.0295E-02 

6 . 9348E- 03 

7 . 2452E-03 

5. 

44 

1.5300E-02 

1 .3220E-02 

1 .O694E-02 

7. 

42 

2.21 15E-02 

1 .9056E-02 

1 .5391E-02 

1. 

1. 

40 

3.1783E-02 

2 . 7336E- 02 

2.2060E-02 

38 

4. 5348E- 02 

3 -8971E- 02 

3. 1444E-02 

2. 

36 

6.411 1E-Q2 

5 . 51 1 2E- 02 

4.4493E-02 

3. 

34 

8. 9620E-02 

7 . 7156E- 02 

6 . 2380E- 02 

4. 

32 

1 .2358E-01 

1 . 0668E-01 

8 . 6451E- 02 

6. 

30 

1.6768E-01 

1 . 4531E- 0 1 

1.161 2E- Ol 

6. 

28 

2.2322E-01 

1 . 9435E-0 1 

1.5858E-01 

1. 

26 

2 . 9071E-01 

2.5447E-01 

2 . 0851 E- 01 

1. 

24 

3.6912E-01 

3.2501E-01 

2.6755E-01 

1 

22 

4.5235E-01 

4 . 0145E- 01 

3.3250E-01 

2 

20 

5.2303E-01 

4. 6968E- 01 

3.9258E-01 

2 

18 

5.5653E-01 

5. 0746E-01 

4 . 2928E-01 

3 

16 

5.3928E-01 

4. 9978E-01 

4.2825E-01 

3. 

14 

4. 7832E- 01 

4 . 4987E-01 

3.9001^-01 

3 

12 

3.9235E-01 

3.7350E-01 

3.2691E-01 

2 

10 

2. 9948E- 01 

2.8777E-01 

2. 5372E-01 

1, 

8 

2. 1 177E-01 

2.0492E-01 

1 . 61 65E-01 

1. 

6 

1 . 3527E-01 

1 .3157E-01 

1 .1709E-01 

9. 

4 

7. 1851E-02 

7.C145E-02 

6.2604E-02 

4. 

2 

2.1018E-02 

2.0574E-02 

1 .8399E-02 

1. 

1 

0. 0O0QE*00 

0. OOOOE*OQ 

0. OOOOE*OD 

D. 

Static press, coeff. at time 

level 360 


ixi 

= 1 

2 

4 


ieta 

51 

3.1342E-02 

2. 1952E-03 

2. 0584E-03 

1 

50 

4.9751E-02 

4 . 9751E-02 

3.8739E- 02 

2 

48 

3. 0001E-02 

3. 0001E-02 

2.3861E-02 

1 


-9.6042E-03 
-9.6042E-03 
-1 .3684E-02 
-1 .9942E-02 
-2. 6890E-O2 
-3. 6637E- 02 
-5. 0225E- 02 
-6.6900E-02 
-8 . 3498E- 02 
-9.3675E-02 
-9 . 0209E-02 
-7.1592E-02 
-4 . 4798E- 02 
-1.8082E-02 
4.8435E- 03 
2. 2812E- 02 
3 . 4953E- 02 
4 . 0900E- 02 
4 . 1 294E- 02 
3 . 7592E- 02 
3.1501E-02 
2 . 4493E- 02 
1 . 7593E- 02 
1 . 1 382E- 62 
6.1072E-O3 
1 .8008E-03 
0 . OOOOE* 00 

28 

2 . 7632E- 04 
2.6946E-03 
4 . 7950E- 03 
8 . 4276E- 03 
1.4069E-02 
2.1979E-02 
3.3397E-02 
4.9S54E-02 
7.1717E-02 
1 .0091E-01 
1.3762E-01 
i:8160E-Ol 
2.3191E-01 
2.8567E-01 
3.-3250E- 0 1 
3.5164E-01 
3.2792E-01 
2. 7021E-01 
2.0171E-01 
1 .4015E-01 
9 . 2361E- 02 
5.8211E-02 
3.4920E-02 
1 . 9416E- 02 
9 . 1996E- 03 
2. 4622E- 03 
6. OOOOE* 00 

48 


4. 0903E-04 
1.7224E-03 
12.3423E-03 
3.1968E-03 
4.7269E-03 
-OT6T8T18E-03 
-Or ^.7758E-03 
-52 T.3958E-02 
1.9794E-02 
2.7831E-02 
3.8706E-02 
5.31 09E-02 
7.T640E-02 
9.4672E-02 
1.2217E-01 
1.5303E-01 
1 .8296E-01 
2. 0358E-O1 
2.0T05E-01 
1.9200E-01 
1 .6338E-01 
1.2829E-01 
9.2652E-02 
6.0094E-02 
3 . 226 9£- 02 
9. 51 21 E- 83 
o.oooo£*oo 


-04 

-03 

-03 

-03 

-03 


-02 

-02 

-02 

-02 

-01 

-01 

-01 

-01 

-01 

-01 

-01 

-01 

-01 

-01 

-01 

-02 

-02 

-02 

*00 


10 

-9.5844E-03 
-9 . 5844E-03 
-1.2556E-02 
-1 . 7963E-02 
-2.4020E-02 
-3.1828E-02 
-4. 0557E-02 
-4 .831 7E-02 
-5.4072E-02 
-5.8122E-02 
-6 . 01 18E-02 
-5. 661 6E-02 
-4. 4370E-02 
-2.5667E-02 
-5.5728E-03 
1.2240E-02 
2.S476E-02 
3.3006E-02 
3.5046E-02 
3 . 2840E-02 
2.8014E-02 
2. 2033E-02 
1.5946E-02 
l . 0369E-02 
5.5632E-03 
1 . 6507E-03 
0 . OOOOE* 00 

39 

5.3528E-04 
4.0027E-03 
6. 2607E-03 
1.0112E-02 
1 . 6155E-02 
2. 4541E-02 
3.6546E-02 
S.341SE-02 
7.6482E-02 
1 . 0697E-01 
1.4569E-01 
1 .9287E-01 
2. 4801E-01 
3.0937E-01 
3. 6971E-01 
4. 1 0 17E-01 
4. 09 09E-01 
3.6411E-01 
2.9431E-01 
2. 2133E-01 
I.5765E-01 
1 . 0710E-01 
6.8946E-02 
4. 0888E-02 
2. 0499E-02 
5.7445E-03 
0 . OOOOE* 0 0 

50 

1.3926E-04 
5.6364E-04 
7.6128E-04 
1 . 0445E-03 
1.5492E-03 
2.2366E-03 
3. 2156E-03 
4.5994E-03 
6 . 5343E-03 
9 . 2044E-03 
“1.2826E-02 
1.7631E-02 
2.3825E-02 
3.1536E-02 
4. 0761E-02 
5.1167E-02 
6.1403E-02 
6.8713E-02 
7.0396E-02 
6 .5806E-02 
5. 6452E-02 
4. 4671E-02 
3.2487E-02 
2. 1200E-02 
1.1443E-02 
3.3874E-03 
0. OOOOE* 00 


10 


12 

-1.011 OE- 02 
-l .0110E-02 
-1 .4016E-02 
-1.8682E-02 
-2.3483E-02 
-2.9341E-02 
-3.4804E-02 
-3.7317E-02 
-3.4732E-02 
-2.7641E-02 
-2.1412E-02 
-2. 1521E-02 
-2.4817E-02 
-2.31 01E-02 
-1 .4414E-02 
-2.3987E-03 
8.9496E-03 
1 . 7049E- 02 
2. 1020E-02 
2.1328E-02 
1.9092E-02 
1.5493E-02 
1.1452E-02 
7.5572E-03 
4.111 9E- 03 
1 .2255E-03 
0. OOOOE*OQ 

32 

7.6061E-04 
4.8556E-03 
7 . 3152E-03 
1 . 1224E-02 
1.7457E-02 
2.6C41E-02 
3.8272E-02 
5.5396E-02 
7.8822E-02 
1 . 0994E-51 
1 . 4990E- Cl 
1 . 9936E-01 
2.5830E-01 
3. 2573E-01 
3.9667E-01 
4.5522E-01 
4.7685E-01 
4, 4937E-01 
3.8467E-01 
3. 0511E-01 
2.2792E-01 
1 . 6138E-01 
1 . 0760E-01 
6.5698E-02 
3.3729E-02 
9.6201E-03 
0 . OOOOE* 00 

51 

0 . 00 OOE+ 00 
0. OOOOE* 00 
0 . OOOOE* 00 
0. 0000£*00 
0. 0OOOE*OO 
0. OOOOE*00 
(T. 0D00E*00 
0 . 000 DE* 00 
0 . OOOOE* 00 
0 . 000 OE* 00 
0 . 00 00E*0 0 
O.O00QE*00 
0 . 00 OOE* 0 0 
0.000 OE* 0 0 
0. 00 OOE* 0 0 
0 . OOOOE* 00 
0 . OOOOE* 00 

o.obooE*oo 

0 . OOOOE* 00 
0. OOOOE* 00 
0.000 OE* 00 
0. OOOOE*OQ 
0. OOOOE* 00 
0. OOOOE* 00 
0. 00OOE*OO 
0 . OOOOE* OO 
0 . 000 OE* 00 


14 

1.1 089E-O3 
•7.7230E-03 
1.3327E-02 
■1.5503E-02 
1 .7892E-02 
•2-0940E-02 
2.3458E-02 
•2.3310E-02 
■1 . 7841E-02 
5.3268E-03 
1.0761E-02 
1.9712E-02 
1.3373E-02 
•I . 2726E-03 
-1 .1122E-02 
-I . 2275E-02 
-7. 9023E-03 
-2. 0177E-03 
2.8059E-03 
5.6173E-03 
6.5276E-03 
6 . 0920E- 03 
4. 9043E-03 
3. 4222E-03 
1 . 9346E-03 


16 


18 


- 1 . 0567E- 03 -9-3814E-04 
-5.8948E-03 -4.2639E-53 
-1.0317E-02 -7 . 2649E-03 
-1.0906E-02 -6.9941E-03 
- 1 . 1 428E-02 -6 - 1580E-03 
-1 .21 01E-02 -4.7814E-03 
-1.1 656E-02 -1 . 5724E-03 
-8.3721E-03 4.9741E-03 


■3. 3365E-04 
1.4324E-02 
3.S180E-02 
5. 4641E- 02 
5. 816 IE-02 
3.9686E-02 
1.2629E-02 
-7.2542E-03 
-1.6122E-02 
-1.7158E-02 
- 1 . 4406E-02 
-1.0629E-02 
-7 . 1939E-03 
-4.5500E-03 
-2.6942E-03 
-1.461 7E-03 
-6 . 6984E- 04 


1.6219E-02 
3. 3265E- 02 
5 . 6393E- 02 
8 . 2163E- 02 
9 . 8540E- 02 
8.9925E-02 
5 . 7096E-02 
1 .9672E-02 
-7-0129E-03 
-2. 0488E-02 
■2. 4331E-02 
•2 . 2751E- 02 
-1.6793E-02 
-1 .4231E-02 
-9 . 9435E- 03 
-6 . 2753E- 03 
‘3. 2962E- 03 


5. 9346E-04 

-1 . 6946E- 04 

-9.5127E-04 

0 . 0000E*00 

0.0000E*00 

0 . 000QE*00 

34 

36 

38 

9.3814E-04 

1.0567E-03 

1 .1089E-03 

5.4162E-03 

5 . 6662E- 03 

5.61 38E- 03 

7. 9447E-03 

8 . 1 523E- 03 

7.9560E-03 

1 . 1768E-02 

1 . 1 767E-02 

1 .1259E-02 

1 . 7980E- 02 

1.7757E-02 

1 . 6640E- 02 

2. 6492E- 02 

2.5937E-02 

2 . 4446E- 02 

3. 8587E- 02 

3.7545E-02 

3 . 5236E- 02 

5.5504E-02 

5.3766E-02 

5. 0350E-02 

7.869CE-02 

7.6111E-02 

7.1192E-02 

1 . 0967E-01 

1.0613E-01 

9 . 9379E-02 

1 . 4988E-C1 

1.4S46E-01 

1 . 3663E- 01 

2. 0038E-01 

1 . 9550E-0 1 

1.6456E-01 

2.6162E-01 

2. 571 OE- 01 

2.4429E-01 

3.3312E-01 

3. 3018E- 01 

3.161 IE- 01 

4. 1 149E-01 

4. 1 245E-01 

3.9S44E-01 

4.8383E-01 

4. 9369E-01 

4.8334E-01 

5.2552E-01 

5. 5086E-01 

5.5035E-01 

5. 171 IE— 01 

5. 6030E-01 

5.7419E-01 

4.6229E-01 

5. 1803E-01 

5.4502E-01 

3.8136E-01 

4. 4043E-01 

4 . 7447E- 01 

2.9458E-01 

3. 4888E-01 

3.8326E-01 

2. 1442E-01 

2.5912E-01 

2.8906E-01 

1 . 4618E-01 

1 . 7946E-01 

2.0257E-01 

9 . 0835E- 02 

1 . 1 286E-01 

1 .2853E-01 

4.7261E-02 

5. 9262E-02 

6.7934E-02 

1 . 3620E- 02 

1 . 7 1 92E-02 

1.9803E-02 

0 . 00 OOE* 00 

0. OOOOE*OD 

0. 0000E*OO 


12 


14 


16 


1.4097E-03 9 . 3822E-04 4.0870E-04 -1.4077E-04 -6.8794E-04 

9.3175E-03 -E.9895E-03 -1.6026E-02 -1.1178E-02 -7.1565E-03 


18 

-1 . 1920E-03 
-6 . 5263E-03 
-1.4008E-02 
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46 2.5651E-02 

44 2.1240E-02 

<2 4.5056E-03 

40 -3 . 08536- 02 
38 -9.66936-02 
36 -1.9747E-01 
34 -3. 2054E- 0 1 
32 -4.39466-01 
30 -5.3337E-01 
28 -5. 9800E-01 
26 -6 . 3896E- 01 
24 -6 . 6330E-01 
22 -6 . 7658E-01 
20 -6.8274E-01 
18 -6.84456-01 
16 -6. 83486-01 
14 -6.81 056-01 
12 -6 . 7800E-01 
10 -6. 7491E-01 
8 -6.7207E-O1 
6 -6. 69636-01 
4 -6.6759E-01 
2 -6.6584E-01 
1 -6. 6255E-01 


2.5651E-02 
2.1240E-02 
4 . 5056E- 03 
-3 . 0853E-02 
-9 . 6693E-02 
-1 .9747E-01 
-3.2OS4E-01 
-4 . 3946E- 01 
-5 . 3337E-01 
-5 . 98006-01 
-6 . 3896E-01 
-6 . 6330E- 01 
-6 . 7658E-01 
-6 .8274E- 01 
-6.84456-01 
-6.83486-01 
-6 .81 056-01 
-6.78006-01 
-6.74916-01 
-6 . 7207E-01 
-6 .69636-01 
-6 . 6759E-01 
-6 . 6S84E-01 
-6.65846-01 


2. 0005E-02 
1 . 49956-02 
-1.75406-03 
-3.7323E-02 
-1.03336-01 
-2.04126-01 
-3.2706E-01 
-4 . 45576-01 
-5. 3861E-01 
-6. 0227E-01 
-6.42686-01 
-6. 6699E-01 
-6.8070E-01 
-6.8763E-01 
-6.90316-01 
-6. 9039E-01 
-6.8901E-01 
-6.8692E-01 
-6.84646-01 
-6.8247E-01 
-6.80S7E-01 
-6.78956-01 
-6.7754E-01 
-6.77546-01 


1.6516E-02 
1 . 0992E-02 
-5.99296-03 
-4.2153E-02 
-1 . 0813E-01 
- 2 , 0850E-01 
-3.3224E-01 
-4.5293E-01 
-5. 4741E-01 
-6 . 1 093E-01 
-6.5075E-01 
-6.7504E-01 
-6.8947E-01 
-6 . 9769E- 01 
-7.01 97E-01 
-7 . 0373E-01 
-7-03916-61 
-7 . 0321E-O1 
-7 . 0209E-01 
-7 . 0 088E-01 
-6 . 9973E-01 
-6 . 98726-01 
-6.9781E-01 
-6.97816-01 


5.9261E-03 
-4.1 048E-03 
-2.48126-02 
-6 . 2384E-02 
-1 .2462E-01 
-2. 1661E-01 
-3.32856-01 
-4.52536-01 
-5. 5079E-01 
-6. 17S6E-01 
-6.58896-01 
-6.8435E-01 
-7. 0050E-01 
-7 . 1 099E-01 
-7. 1 780E-01 
-7- 2203E-0 1 
-7 . 2444E- 01 
-7 . 2564E-0 1 
-7.2609E-Q1 
-7 . 2613E- 01 
-7 . 2599E- 01 
-7 . 25776- 0 1 
-7.2552E-01 
-7.25526-01 


-7.0283E-03 
-2. 1 266E-02 
-4 . 5O85E-02 
-8.3802E-02 
- 1 . 4256E-01 
-2 . 2508E-01 
-3. 2933E-01 
-4. 4267E-01 
-5.4401E-01 
-6 . 1 773E-C1 
-6 . 641 8E-01 
-6 . 9297E-01 
-7 . 1226E-01 
-7 . 2622E-01 
-7 . 3660E-01 
-7.4417E-01 
-7.4947E-01 
-7.53036-01 
-7.5537E-01 
-7.5669E-01 
-7.5787E-01 
-7 . S852E-01 
-7.S899E-01 
-7.5899E-01 


-1.4620E-02 
-3. 0326E-02 
-5. 4872E-02 
-9.3540E-02 
-1 .50106-01 
-2.2660E-01 
-3.2112E-01 
-4.2609E-01 
-5.2748E-01 
-6.0949E-01 
-6.6530E-01 
-7 . 0067E-01 
-7.2491E-01 
-7.4350E-01 
-7.5836E-01 
-7.7001E-01 
-7 . 78776-01 
-7.8512E-01 
-7.89636-01 
-7.9279E-01 
-7.9501E-01 
-7.966C6-01 
-7 . 9783E-01 
-7. 9783E-01 


- 1 .8600E-02 
-3. 4493E-02 
-5.8912E-02 
-9- 6260E-02 
-1 . 4960E-01 
-2.20486-01 
-3.0727E-01 
-4. 0477E-01 
-5. 0410E-01 
-5.931 IE-01 
-6.6129E-01 
-7.0757E-01 
-7 . 3945E-01 
-7 . 6399E-01 
-7.8407E-01 
-8. 0032E-01 
-8. 1298E-01 
-8.22 49E-01 
-8.2947E-01 
-8.3451E-01 
-8.3816E-01 
-8.4083E-01 
-8.4291E-01 
-8. 429 IE- 01 


-2. 16UE-02 
-3.7193E-02 
-6 . 0976E-02 
-9.611 OE- 02 
-1 .4518E-C1 
-2.09646-01 
-2.8877E-01 
-3-7937E-01 
-4 . 7589E- 01 
-5.6999E-01 
-6.511 9E-01 
-7 . 1 251E-01 
-7 . 5598E-01 
-7 . 885GE-01 
-8 . 1 464E-01 
-8.3590E-O1 
-8.5277E-01 
-8. *65746-01 
-8.7548E-01 
-8.8270E-01 
-8.6803E-01 
-8 . 9200E-01 
-8.951 6E- 01 
-8.9516E-01 


-2.3033E-02 
-3. 7933E-02 
-6 . 0387E-02 
-9.2792E-02 
-1 .3733E-01 
-1 .95356-01 
-2.66B8E-01 
-3.50516-01 
-4.43446-01 
-5. 4076E-01 
-6 . 3392E-01 
-7 . 1267E-01 
-7.7219E-01 
-8.1592E-0I 
-8.49566-01 
-8. 7635E-01 
-8. 9763E-01 
-9.1424E-01 
-9.2696E-01 
-9 . 3659E-01 
-9 . 43846-01 
-9.49356-01 
-9 . 5378E- 01 
-9.5378E-01 


1x2 = 20 

ieta 

51 -1.6212E-03 
50 -5.5059E-03 
48 -1.3322E-02 
46 -2.2404E-02 
44 -3.6276E-02 
42 -5.6908E-02 
40 -8.62026-02 
38 -1 . 2602E-C1 
36 -1.777 OE- 01 
34 -2.4184E-01 
32 -3. 1840E- 01 
30 -4. 0679E-01 
28 -5. 05136-01 
26 -6. 0784E-01 
24 -7-04116-01 
22 -7.8313E-01 
20 -6.4213E-01 
18 -8.8569E-01 
16 -9.189 IE- 01 
14 -9.4481E-01 
12 -9.6504E-01 
10 -9.8074E-01 
8 -9 . 9282E- 01 
6 -1 . 00216+00 
4 -1 . 00926+00 
2 -1 . 0150E+00 
1 -l . 01506+00 


22 

-1 .9486E-03 
-3.11 27E-0S 
-1 . 1383E-02 
-2.01 02E-02 
-3.259 IE- 02 
-5. 1 046E-02 
-7.68516-02 
-1.1167E-C1 
-1 .5685E-01 
-2 . 1351E- 01 
-2.8271E-C1 
-3. 6552E-01 
-4.6245E-01 
-5.71 09E- 01 
-6.8244E-01 
-7 .8207E- 01 
-8.5995E- 01 
-9 . 1651E-01 
-9.5764E-01 
-9.8848E-01 
-1.0121E+00 
-1 . 0305E+00 
-1.04486*00 
-1 . 0559E* 00 
-1.0645E*00 
-1 .0717E+00 
-1 . 07176+00 


24 

-2. 1 536E-03 
5. 9640E- 04 
-6. 3231E- 03 
-1.6510E-02 
-2. 7238E-02 
-4.3203E-02 
-6 . 51806-02 
-9 . 4684E-02 
-I. 33086-01 
-I.8190E-01 
-2.4303E-01 
-3.1889E-01 
-4. 1181E-01 
-5.2209E-01 
-6 . 4377E- 01 
-7 . 6190E-0 1 
-6. 601 2E-01 
-9.3245E-01 
-9.8327E-01 
-1 . 0195E+00 
- 1 . 0463E+00 
- 1 . 06686*00 
-1.0827E*00 
-1 . 0951E+00 
-1 . 1 049E*00 
-1 . 1 131E* 00 
-1 . 1 131E+00 


26 

-2 . 2235E-03 
5.3046E-03 
-4 . 2553E- 03 
- 1 . 1855E- 02 
-2 . 0505E- 02 
-3.37246-02 
-5. 1605E-02 
-7.55156-02 
- 1 . 0678E- 01 
-1 .4717E-01 
-1 . 9924E- 01 
-2 . 6639E- 01 
-3.5238E-01 
-4.S964E-01 
-5.8536E- 01 
-7 . 1661E-01 
-8.3S30E-01 
-9.2234E-01 
-9.8416E-01 
-1 . 0262E* 00 
-1.05586*00 
-1 . 07766*00 
-1 .0942E*00 
-1.1073E+00 
-1 .11766+00 
-1 . 1264E+00 
- 1 . 1 264E* 00 


28 

-2.1536E-03 
1 . 0676E- 02 
6.43346-04 
-6.3712E-03 
- 1 . 2719E- 02 
-2.3006E-02 
-3.6592E-02 
-5.4664E-02 
-7.8421E-02 
-1 . 0974E- 01 
-1.5154E-01 
-2. 0795E- 01 
-2.8378E- 01 
-3.8312E- 01 
-5. 0593E- 01 
-6.4245E-01 
-7.721 OE- 01 
-8. 7582E- 01 
-9 . 4848E-01 
-9 . 9635E-01 
-1 . 0281E+00 
-1 . 0503E* 00 
-1 .0667E*00 
-I .0794E+00 
-1 . 0896E* 00 
-1 . 09826*00 
-1.09826*00 


30 

-1.9486E-03 
1 .6393E-02 
6. 1399E-03 
-3. 1466E-04 
-4. 2261E-03 
-1 .1464E-02 
-2.O633E-02 
-3.2691E-02 
-4.8626E-02 
-7.0229E-02 
-1 . 0054E-01 
-1 .4408E-01 
-2. 0641E-01 
-2.9266E-01 
-4 . 0563E-01 
-5. 3847E-01 
-6 . 7269E-01 
-7 . 858 IE- 01 
-8.66946-01 
-9 . 1947E-01 
-9.5252E-01 
-9.741 IE-01 
-9.8926E-01 
-1 . 00076*00 
-1 . 00976*00 
-1 . 0175£*00 
-1 . 01756*00 


32 

-1.6212E-03 
2.2162E-02 
1 . 1983E-02 
6. 0552E-03 
4.6243E-03 
4.8646E-04 
-4 . 2363E- 03 
-1.0205E-02 
-1.81 09E-02 
-2. 9481E-02 
-4.72276-02 
-7.5937E-02 
-1.2160E-01 
-1.9042E-01 
-2.8640E-01 
-4. 86S4E-01 
-5. 3553E-01 
-6.5024E-01 
-7. 35176-01 
-7.8991E-01 
-8.2278E-01 
-8.4263E-01 
-8.5550E-01 
-8.6470E-O1 
-8.7188E-01 
-8. 7805E-01 
-8.78056-01 


34 

-1.1 920E-03 
2.7740E-02 
1.7925E-02 
1.2490E-02 
1.3509E-02 
1.2437E-02 
1.2092E-02 
1 .2163E-02 
1 .2337E-02 
1.1494E-02 
7 * 0925E- 03 
-5.2308E-03 
-3.1549E-02 
-7.8653E-02 
-1.5193E-01 
-2.5125E-0 1 
-3.6529E-01 
-4 . 7259E-01 
-5.5502E-01 
-6.O834E-01 
-6 . 3901E-01 
-6.5587E-01 
-6.6554E-01 
-6.7177E-01 
-6.7642E-01 
-6.8042E-01 
-6.8042E-01 


36 

-6.6794E-04 
3 . 2936E-02 
2.3733E-02 
1.8758E-02 
2. 21 20E-02 
2.40046-02 
2.78636-02 
3. 3782E-02 
4 . 18816-02 
5.1574E-02 
6.0874E-02 
6 .59 01E-02 
6.0801E-02 
3.8492E-02 
-7 . 4925E- 03 
-7.9483E-02 
-1.7Q2QE-01 
-2.6146E-01 
-3.3454E-01 
-3.8214E-01 
-4 . 0826E- 0 1 
-4. 2085E-01 
-4. 2652E-01 
-4 . 2924E-01 
-4 . 3089E-01 
-4 . 3229E-01 
-4.3229E-01 


38 

-1 . 4077E-04 
3.7612E-02 
2. 9201E-02 
2.4652E-02 
3. 0 186E-02 
3.4840E-02 
4.2626E-02 
5.40526-02 
6 . 9702E- 02 
8.9602E-02 
1 . 1245E-01 
1 .3506E-01 
1 . 5203E- 01 
1.5625E-01 
1 .4043E-01 
1.00156-01 
3.887SE-02 
-2. 9292E-02 
-8.6850E-02 
-1.2453E-01 
-1 .4375E-01 
-1 .5090E-01 
-l .5201E-01 
-1 .5O86E-01 
-1 .4927E-01 
-1 .4785E-01 
-1 . 4785E-01 


ixi 

= 40 

42 

ieta 

51 

4. 1517E-04 

9.4494E-04 

50 

4. 1677E-02 

4.50736-02 

48 

3. 4152E-02 

3.84436-02 

46 

2. 9995E-02 

3.46416-02 

44 

3. 74776-02 

4,38026-02 

42 

4.46426-02 

5.31576-02 

40 

5.59616-02 

6,75896-02 

38 

7 24246-02 

8.8426E-02 

36 

9.50276-02 

1.17176-01 

34 

1.24456-01 

1.55116-01 

32 

1. 60176-01 

2.02466-01 

30 

1.99776-01 

2.5766E- 01 

28 

2.3851E-01 

3.16696-01 

26 

2.69456-01 

3.72936-01 

24 

2.8471E-01 

4.18116-01 

22 

2.78106-01 

4. 4460E-01 

20 

2.49656-01 

4.49466-01 

18 

2. 09146-01 

4. 3832E-01 

16 

1.71646-01 

4. 231 7E-01 

14 

1 .47226-01 

4.13936-01 

12 

1 . 3680E- 01 

4. 1342E-01 

10 

1 . 3596E- 01 

4. 1928E-01 

8 

1 .3974E-01 

4.2796E-01 

6 

1.4485E-01 

4 . 3688E-01 

4 

1 .49716-01 

4 . 4483E- 01 

2 

1.5397E-01 

4.51786-01 

1 

1.5397E-01 

4.5178E-01 


44 

1 . 4153E-03 
4. 7762E-02 
4. 1967E-02 
3.8481E-02 
4.9017E-02 
6.01 84E-02 
7.7173E-02 
1 . 0166E-01 
1.3555E-01 
1 . 8067E-01 
2. 3794E-01 
3.0659E-01 
3.8331E-01 
4.61 88E - 0 1 
5.3384E-01 
5. 9042E-01 
6. 2626E-01 
6.4333E-01 
6.5D39E-01 
6 . 5656E- 01 
6 .66056-01 
6 . 7846E-01 
6. 917 OE -01 
7 . 0405E-01 
7.147 4E-01 
7 . 2405E-01 
7.2405E-01 


46 

1 . 7966E- 03 
4.9710E-02 
4.4642E-02 
4.1427E-02 
5.3006E-02 
6.5S72E-02 
8.4S28E-02 
1 . 1184E-01 
1.49706-01 
2. 0042E-0 1 
2.6S48E-01 
3.4478E-01 
4.3562E-01 
5.3221E-01 
6 . 2598E-0 1 
7.0744E-01 
7.6943E-01 
8.1093E-01 
8.3777E-01 
8.5794E-01 
8.7654E-01 
8.9479E-01 
9 . 1 197E-0J 
9.2719E-01 
9.4014E-01 
9.5137E-01 
9.51 37E-01 


48 

2.0649E-03 
5. 0870E-02 
4.6438E-02 
4.3427E-02 
5.5683E-C2 
6.9188E-C2 
8.9465E-02 
1.1866E-01 
1.S926E-01 
2. 1 382E-01 
2.8427E-0I 
3.7095E-01 
4.7163E-01 
5.8082E-01 
6.8999E-01 
7.8927E-01 
8.7039E-01 
9.3035E-01 
9 .72676-01 
1.00426*00 
1.03036*00 
1.0534E*00 
1.07386*00 
1.09146*00 
1.10606*00 
1.11876*00 
1.11876*00 


50 

2.20356-03 
5.12186-02 
4. 7280E-02 
4 . 441 9E-02 
5. 7021E-02 
7.10456-02 
9.20416-02 
1.22286-01 
1.64316-01 
2. 20906-01 
2.94166-01 
3.84676-01 
4.90456-01 
6.06176-01 
7.23336-01 
8.31946-01 
9.23396-01 
9.93866-01 
1, 04586*00 
1. 0851E*00 
1.11726*00 
1. 1448E*00 
1 . 1687E*00 
1. 18906*00 
1 . 2060E*9Q 
1 . 2206E*00 
I . 2206E*00 


51 

2.5053E-02 
5. 12186-02 
4. 7280E- 02 
4.4419E-02 
5.7021E-02 
7 . 1 045E- 02 
9.2041E-02 
1.222SE-01 
1 . 6431E-01 
2.2090E-01 
2.941 6E-01 
3.8467E-01 
4 . 9045E-01 
6.06176-01 
7 . 23336-01 
8.3194E-01 
9.2339E-01 
9.9386E-01 
1.04586*00 
1 .0851E*00 
1 . 1 1 726* 00 
1 . 1448E* 00 
1.16876*00 
1 .1890E+00 
1.20606*00 
1 .22066*00 
1.25026*00 


■■mi Converged solution at tine level 360 

Convergence history for continuity equation 

*««« Without artificial viscosity ■««* With artificial viscosity ■■■* 


ivai 

chgmax 

chgavg 

resl2 

resavg 

resnax 

resnax loc. 

r«sl2 

rasavg 

resnax 

resnax loc 

1 

0.0006*00 

0 . 000E*0 0 

1.1 396*01 

1.7336-01 

6,0486-01 

{ 

17, 22) 

1.1396+01 

1.734E-01 

6.0496-01 

( 

17, 22) 

2 

0,0006*00 

0 . 00 OE* 0 0 

9.2626*01 

7.7886-01 

1.6956+01 

{ 

2, 2) 

9.2996+01 

7.842E-01 

1 .7116+01 

( 

2, 2) 

10 

4.1626-03 

0. 0006*00 

4.1516*01 

4.6366-01 

6.6356+00 

{ 

46, 50) 

3.1256*01 

4.4476-01 

2.470E+00 

t 

47, 50) 

20 

1 .8706-03 

0 . D00E*0 0 

2.4236+01 

3.1036-01 

3.9676*00 

< 

2, 50) 

2.249E*01 

2.972E-01 

2.6636+00 

( 

13, 50) 

30 

1.226E-03 

0 . 000E*0 0 

5. 4946+01 

3.1896-01 

9. 735E*00 

{ 

45, 50) 

1.4836*01 

1. 6616-01 

3.8036+00 

( 

13, 50) 

40 

5.444E-04 

0 . 0 00E* 0 0 

4.4866+01 

2.5496-01 

8. 389E+00 

{ 

48, 50) 

6.4176*00 

7.9586-02 

1.1456+00 

C 

12, 50) 

50 

5-562E-04 

0 . 000E* 0 0 

5.271E+01 

2.5896-01 

1.0056*01 

( 

48, 50) 

5.8626*00 

5.4136-02 

1 . 3406+00 

{ 

13, 50) 

60 

3.1116-04 

0.0006*00 

5.S246+01 

2.657E-01 

1 . 069E*01 

( 

48, 50) 

4.370E*00 

3.6616-02 

1.1766+00 

i 

12, 50) 

70 

2.473E-04 

0 . 0 ODE* 0 0 

5.4926*01 

2.5856-01 

1.6796*01 

( 

2, 50) 

3.8846*00 

3. 163E-02 

8.7026-01 

( 

12, 50) 

80 

1.768E-04 

0 . 0O0E* 0 0 

5. 720E+01 

2.6186-01 

1.1796*01 

{ 

2, 50) 

3.4216*00 

2.5286-02 

9.0256-01 

( 

12, 50) 

90 

1.2596-04 

0 . OOOE* 0 0 

5.688E+01 

2.556E-01 

1.2656+01 

( 

2, 50) 

2.8576*00 

2.0576-02 

7.1726-01 

< 

12, 50) 

100 

9.474E-05 

0 . OOOE* 00 

5.7626*01 

2.5336-01 

1 . 339E+01 

{ 

2, 50) 

2.3806*06 

1.5646-02 

6.3226-01 

{ 

12, 50) 

110 

6. 529E-05 

0. OOOE* 00 

5.7726+01 

2.560E-01 

1.4036+01 

( 

2, 50) 

1.8786*00 

1.2216-02 

4. 996E-01 

( 

12, 50) 

120 

4.6406-05 

o.oooe*oo 

5.7886+01 

2.475E-01 

1.454E+01 

< 

2, 50) 

1.425E*00 

8.6346-03 

3,8276-01 

( 

12, 50) 
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- . Jt' 


l h 


130 

3. 016E-05 

0 . OC0E*00 

5. 796E*0I 

2.459E-01 

1 . 494E* 0 1 

1 40 

1 -889E-05 

0. 000E*0Q 

5 • 7 9 4E * 0 1 

2.445E-01 

1 .523E*01 

150 

1.106E-05 

0 . 0 0 0E ♦ 0 0 

5. 791E*0l 

2 . 438E-01 

1 .542E* 01 

160 

6.477E-06 

0.O00E*00 

5.782E*01 

2. 432E-01 

1.5S5E*01 

170 

4.252E-06 

0 . 0 OOE* 00 

5.774E*01 

2. 427E-01 

1.562E*01 

160 

2.799E-06 

0 . 0 0 0E* 00 

5.767E*0l 

2. 423E-01 

1 . 565E* 01 

190 

1.775E-06 

0. 000E*QO 

5 . 761E*Q1 

2. 420E-01 

1 .566E*01 

200 

1 .131E-06 

0.00 0E* 00 

5 . 756E*0l 

2.417E-01 

1 .567E*01 

210 

6 . 984E-07 

Q . 00 OE*00 

5. 753E*0l 

2. 416E-01 

1 .566E*01 

220 

4.313E-07 

0. 0O0E+0Q 

5. 751E* 01 

2. 415E- 01 

1 .566E* 01 

230 

2.902E-07 

0 . O0OE*OO 

5. 750E*C1 

2. 414E-01 

1 . 566E* 0 1 

240 

1.912E-07 

0 . OO0E*O0 

5. 749E* 0 1 

2. 414E-01 

1 .566E*01 

250 

1 . 236E-07 

0.0C0E*Q0 

5.749E*0l 

2.4I4E-01 

1 .565E*01 

260 

8. 020E-08 

0 . O00E+00 

5.749E*01 

2. 4I4E-01 

1 .56SE*01 

270 

5. 164E-06 

0 . 000E+00 

5 . 749E* 0 1 

2.414E-01 

1 .565E* 0 1 

260 

3.312E-08 

O.OOOE+OO 

5 . 749E* 0 1 

2.414E-0X 

1 .565E* 0 1 

290 

2. 074E-08 

0 . O00E+00 

5. 749E*01 

2.414E-01 

1 . 565E*01 

300 

1 .250E-08 

O.OOOE*O0 

5. 749E+ 01 

2.414E-01 

1 .565E* 01 

310 

7 . 394E-09 

0 . 0 OOE+OO 

5.749E*01 

2.414E-01 

1 .565E+01 

320 

5.014E-09 

0 . 0 0 0E* 00 

5 . 749E* 0 1 

2.414E-01 

1 .565E+ 01 

330 

3.334E-09 

0 . 0 0 0E* 00 

5 . 749E*01 

2.414E-01 

1 .565E+ 01 

340 

2. 212E-09 

0 . 0 0 0E* 00 

5 . 749E* 01 

2. 414E-01 

1 . 565E*01 

350 

1 .465E-09 

0 . 00 0E+ 00 

5.749E*01 

2. 414E-01 

1 .565E*01 


( 

2, 

50) 

1 . 034E* 00 

6 . 303E-03 

2.646E-01 

C 

12, 50) 

( 

2, 

50) 

7.084E-OI 

4.216E-D3 

1 . 946E-01 

c 

12, 50) 

( 

2 , 

50) 

4.632^-01 

2.614E-03 

1.299E-01 

( 

12, 50) 

( 

2 , 

50) 

2.855E-01 

1.733E-03 

7 . 866E-02 

( 

12, 50) 

( 

2 , 

50) 

1.678E-01 

1 . 070E-03 

4.S10E-02 

( 

12, 50) 

{ 

2 , 

50) 

9.543E-02 

6.349E-04 

2. 308E-02 

( 

12, 50) 

( 

2 , 

50) 

5.380E-02 

3.629E- 04 

1. 07IE-02 

£ 

2, 43) 

( 

2 , 

50) 

3-227E-02 

2.366E-04 

6.114E-03 

f 

2, 38) 

( 

2, 

50) 

2. 062E-02 

1 .465E-04 

4. 296E-03 

( 

2, 39) 

( 

2, 

50) 

1 .380E-02 

9.386E-05 

3.282E-03 

< 

13, 50) 

£ 

2, 

50) 

9.118E-03 

5.782E-05 

2.337E-03 

< 

13, 50) 

£ 

2, 

50) 

5.812E-03 

3. 491E-05 

1 . 453E-03 

< 

13, 50) 

( 

2, 

50) 

3.S80E-03 

2.080E-05 

8. 041E-04 

( 

2, 42) 

( 

2, 

50) 

2. 168E-03 

1.238E-05 

4. 735E-04 

( 

2, 43) 

( 

2, 

50) 

1.342E-03 

7.781E-06 

2.700E-04 

( 

2, 44) 

< 

2 , 

50) 

8.733E-04 

4. 992E-06 

1 .731E-04 

( 

2, 38) 

( 

2, 

50) 

5.695E-04 

3.330E-06 

1.268E-04 

( 

2, 39) 

( 

2, 

50) 

3.975E-04 

2.216E-06 

8 . 619E-05 

( 

2, 40) 

( 

2, 

50) 

2.596E-04 

1.476E-06 

5.800E-05 

{ 

2, 40) 

C 

2 , 

50) 

1.621E-04 

9.537E-07 

3.748E-05 

t 

2, 41) 

( 

2, 

50) 

9 . 735E-05 

6 . 063E-07 

2. 245E-05 

( 

2, 42) 

( 

2 , 

50) 

5.801E-05 

3.863E-07 

1 . 262E-05 

{ 

2, 43) 

t 

2 , 

50) 

3.627E-05 

2.501E-07 

6 . 867E-06 

t 

2 , 44) 


Convergence history for x-momentum equation 


Without artificial y 


level 

chgmax 

chgavg 

resl2 

resavg 

resmax 

1 

0.OODE*O0 

O.O00E*00 

1 . 442E* 04 

31 49QE*01 

3 . 328E*03 

2 

0. OOOE + OO 

0 . 0 0 0E ♦ 0 0 

3. 143E* 03 

l . 669E*01 

5.483E*02 

10 

7 . 992E-02 

O.OOOE*<JO 

1 . 622E + 0 2 

2.281E-00 

2. 0S4E* 01 

23 

2.838E-02 

O.OOOE-OO 

l . 327E* 02 

1 .661E*00 

1 .355E*0l 

30 

2.415E-02 

0 . 0 0 0E ♦ 0 0 

1 . 939E+ 02 

1 . 730E*00 

2.99SE+01 

40 

1 .921E-02 

O.OOOE*DO 

2.080E+02 

1 . 639E-» 00 

3 . 009E+ 01 

50 

1 .391E-02 

0 . 0 0 0E* 00 

2 . 396E* 02 

1 . 705E*00 

3 . 763E* 01 

60 

1 .009E-02 

0. 000E*0O 

2 . 657E* 02 

1 . 698E*0 0 

4 . 565E+ 01 

70 

7.032E-03 

0. OOOE^OO 

2 . 858E-* 02 

1 . 725E+00 

5.250E*01 

60 

5. 108E-03 

0 . 000E*0O 

3. 072E*02 

1 . 751E+ 00 

5 . 641E+ 01 

90 

3.593E-03 

0. OOOE+OO 

3. 231E*02 

1 . 777E*00 

6 . 326E* 01 

100 

2.543E-03 

0. OOOE*00 

3. 377E* 02 

1 .61 0E + 0 0 

6 . 765E+ 01 

110 

1 . 826E- 03 

0. 000E*0D 

3 . 491E* 02 

1 . 838E* 0 0 

7. 106E+01 

120 

1 -304E-03 

®.OO0E*OO 

3.580E-02 

1 .667E*00 

7 . 354E*01 

130 

9.2I0E-04 

O.O00E*00 

3.644£*02 

1 ,893E*00 

7 .5lflE*01 

140 

6. 173E-04 

0. OOOE+OO 

3 . 686E* 02 

1.914E:*00 

7 . 623E* 0 1 

' 150 

3. 91 IE-04 

O.OOOE^OO 

3.712E«-02 

1 . 929E+0Q 

7 . 697E* 01 

160 

2 - 39SE-04 

0 . 000E*00 

3 . 726E+ 02 

1 ,939E*00 

7 . 731E*01 

170 

1.426E-04 

0 . OOOE^OO 

3 . 732E* 02 

1 ,944E<*00 

7 . 742E* 01 

180 

8.568E-05 

O.OOOE'OO 

3 . 734E* 02 

1 .946E*00 

7 . 740E* 01 

190 

6.211E-05 

O.OOOE^OO 

3. 733E* 02 

1 .947E*00 

7 . 734E+ 01 

200 

4.274E-05 

O.OOOE^OO 

3. 732E + 02 

1 .946E»00 

7 . 728E+ 01 

210 

2.809E-05 

O.OOOE^OO 

3. 731E + 02 

1.946E*00 

7 . 723E+ 01 

220 

1 .784E-05 

0 . 000E+0O 

3 . 730E^02 

1.946E*0O 

7 .719E+01 

230 

1 . 099E-05 

0 . 0 OOE^OO 

3.729E*02 

1 . 945E*00 

7 . 71 7E^01 

240 

6 . 643E- 06 

O. OOOE+OO 

3 . 729E* 02 

1 . 945E*00 

7 . 71 7E^ 01 

250 

3.966E-06 

0 . 0 0 0E + 00 

3 . 729E* 02 

1 . 945E-* 00 

7.716E*01 

260 

2.357E-06 

0 . 0 0 0E+ 00 

3.729E*02 

1 . 945E* 00 

7 . 71 7E* 01 

270 

1.605E-Q6 

0 . 00 0E*00 

3.729E»02 

1 . 945E+ 00 

7.717E-01 

280 

1. 125E-06 

0. OOOE+OO 

3.729E-02 

1 .945E*00 

7.717E*01 

290 

7.539E-07 

O . O0OE*0 0 

3.729E-02 

1 . 945E+ 0 0 

7 . 717E*01 

300 

4.869E-07 

O. 00 0E*0 0 

3. 729E»02 

1 . 945E* 0 0 

7 . 7 17E* 0 1 

310 

3.050E-07 

0 . OOOE^OO 

3. 729E*-02 

1 . 945E*0 0 

7.7I7E^01 

320 

1.671E-07 

O.OOOE-OO 

3 . 729E* 02 

1.945E*00 

7 , 717E+01 

330 

1.133E-07 

O. OOOE^OO 

3. 729E* 02 

1 . 945E*00 

7.71 7E* 01 

340 

6.849E-08 

0 . OOOE^OO 

3. 729E + 02 

1 . 945E*0O 

7.717E*01 

350 

4.325E-08 

O.OOOE+OO 

3. 729E* 02 

l .945E»00 

7 . 717E* 01 


mm kkii With artificial viscosity 


resmax loc. 

resl2 

resavg 

resmax 

resmax loc 

( 

26, 2) 

1 .442E+04 

3. 494E* 01 

3 . 330E+03 


26, 2) 

C 

15, 2) 

3. 146E+03 

1.470E+01” 

5 . 486E*02 


14, 2) 

( 

50, 50) 

1 . 498E* 02 

2.203E-00 

1 . 360E*01 


13, 50) 

( 

2, 46) 

1.228E*02 

1 .5S3E* 00 

3 - 1 56E* 4 0 1 


13, 50) 

( 

50, 50) 

1 . 139E*02 

1.241E-00 

2. 903E* 01 


13, 50) 

( 

2, 48) 

9.121E+01 

6.762E-01 

1.258E*01 


2 , 34) 

( 

2, 40) 

8. 042E*01 

7 . 733E-01 

1. 150E*01 


2, 35) 

( 

2, 40) 

6.734E+01 

5.756E-01 

1 . 0 08E*01 


2 , 36) 

( 

2, 40) 

5.733E-01 

4.977E-01 

8. 384E+00 


2, 37) 

( 

2, 40) 

4.824E*0I 

3.892E-01 

7 . 064E+C0 


2, 38) 

c 

2, 41) 

3.970E*01 

3. 097E-01 

5. 742E*0D 


2, 38) 

( 

2, 41) 

S.204E+01 

2.378E-01 

4,690E*0D 


2, 39) 

( 

2, 41) 

2.472E+01 

1.747E-01 

3.647E+00 


2, 40) 

( 

2, 41) 

1 .832E+01 

1 . 244E-01 

2.7O3E-O0 


2, 40) 

c 

2 , 41) 

1 .284E+01 

8.358E-02 

1 . 940E*00 


2, 41) 

( 

2, 42) 

8.532E* 00 

5.434E-02 

1 . 285E+00 


2, 42) 

< 

2, 42) 

5.346E+00 

3.390E-02 

8 . 158E-01 


2, 42) 

f 

2, 42) 

3. 167E+00 

2.036E-02 

4.777E-01 


6, 37) 

( 

2, 42) 

1 .793E+00 

1 . 192E-02 

2.666E-01 


6, 37) 

( 

2, 42) 

1 . 0 00E* 00 

6.897E-D3 

1.561E-01 


2, 37) 

{ 

2 , 42) 

5.617E-01 

4.O53E-03 

1 .031E-01 


2, 38) 

( 

2, 42) 

3.692E-01 

2.549E-03 

6.774E-02 


2, 39) 

c 

2, 42) 

2.483E-01 

1.636E-03 

4.43SE-02 


2, 40) 

( 

2, 42) 

1.670E-01 

1 . 066E-03 

2.852E-02 


2, 41) 

t 

2, 42) 

1.084E-01 

6.776E-04 

1 . 768E-02 


2, 42) 

t 

2, 42) 

6.757E-02 

4. 188E-04 

1 . 034E-02 


2, 43) 

c 

2, 42) 

4.112E-02 

2.596E-04 

6. 072E-0S 


6, 38) 

( 

42) 

2.529E-02 

1 . 642E-04 

4. 161E-03 


2, 37) 

( 

2, 42) 

1.628E-02 

1 . 052E-04 

2.860E-03 


2, 38) 

c 

2, 42) 

1 . 093E-02 

6.838E-05 

1 . 947E-03 


2, 39) 

( 

2, 42) 

7.388E-03 

4.437E-05 

1.298E-03 


2, 40) 

( 

2, 42) 

4.656E-03 

2.812E-05 

8.326E-04 


2, 41) 

{ 

2, 42) 

3. 048E-O3 

1 .772E-05 

5 . 043E-04 


2, 42) 

( 

2, 42) 

1.827E-03 

1.124E-05 

2.678E-04 


2, 42) 

( 

2, 42) 

1.072E-03 

7.047E-06 

1 .671E-04 


2 , 36) 

c 

2, 42) 

6.529E-04 

4.528E-06 

1.163E-04 


2, 37) 

( 

2, 42) 

4.371E-04 

3. O43E-06 

8 . 111E-05 

( 

2, 38) 


Convergence history for y-raomentum equation 


level ehgmax 


chgavg 


Men* Without artificial viscosity 


resl2 


resavg 


resmax loc. resl2 


Hewn with artificial viscosity *»** 


resavg 


resmax 


resmax loc. 


1 

C. OOOE-OO 

0. OOOE+OO 

8 . 31 3E* 03 

2. 209E*01 

1 .660E*03 

C 

14, 2) 

2 

0. 0O0E*00 

0. OOOE+OO 

1 . 932E 4 03 

8 . 514E* 0 0 

4 . 01 3E* 02 

c 

10, 2) 

10 

5. 181E-02 

0. OOOE+OO 

1 .344E*02 

1 . 665E* 0 0 

2 . 139E* 01 

£ 

33, 50) 

20 

2.346E-02 

0. OOOE+OO 

9 . 622E* 01 

1 . 31 IE* 0 0 

1 . 056E*01 

( 

15, 50) 

30 

1 .750E-02 

O. OOOE*00 

1 . 733E* 02 

1 .449E*00 

3. 263E*01 

( 

31, 50) 

40 

1 . 089E-02 

0 . OOOE* 0 0 

1 . 479E*02 

1 . 287E*0 0 

2. 51 2E*01 

( 

34, 50) 

50 

7.577E-03 

Q.OOOE+OO 

1 . 66 IE* 02 

1 . 307E*00 

3. 01 6E* 01 

( 

34, 50) 

60 

5. 192E-03 

0. O00E+00 

1.690E*02 

1 . 21 1E*00 

3 . 088E* 0 1 

( 

35, 50) 

70 

3.734E-03 

0.000E+0O 

1 . 650E* 02 

1 . 157E*00 

3. 015E*01 

( 

35, 50) 

80 

2.723E-03 

0. 000E+00 

1 . 685E* 02 

1.114E*00 

3. 099E*01 

£ 

35, 50) 

90 

1 .988E-03 

0.000E+QQ 

1 . 6 6 5E * 0 2 

1 .074E*00 

3.016E*01 

f 

36, 50) 

100 

1 . 400E-03 

Q.OOOE+OQ 

1 . 6 7 5E + 0 2 

1 . 045E*00 

3.014E*01 

£ 

36, 50) 

110 

9.740E-04 

O.OOOE-QO 

l . 675E* 0 2 

1.019E*00 

2 . 969E* 01 

X 

36, 50) 

120 

6.436E-04 

O.OOOE-OO 

1 . 678E* 02 

1 . OOOE*CO 

2 . 939E* 01 

c 

36, 50) 

130 

4.1 09E-04 

O.OOOE+OQ 

1 .683E*02 

9.901E-01 

2 . 909E* 01 

( 

36, 50) 

140 

2.843E-04 

0 . 0 0 OE ♦ 0 0 

1 .686E*02 

9 . 883E-01 

2 .881E+ 01 

£ 

36, 50) 

150 

1 . 9Q1E-04 

0 . 0 OOE + DO 

1 .689E*02 

9. 911E-01 

2 . 860E* 01 

C 

36, 50) 

160 

1 .260E-04 

0 . OOOE+OO 

1 .691E*02 

9. 935E-01 

2 . 841E*01 

( 

36, 50) 

170 

8. 078E-05 

0 . OOOE+OO 

1 .692E*02 

9 . 942E-01 

2 . 826E+01 

( 

36, 50) 

160 

5. 018E-05 

0.00 OE* 00 

1 . 692E* 02 

9 . 938E-01 

2. 81 9E*01 

£ 

36, 50) 

190 

3. 047E-05 

0. OOOE+OO 

1 . 691E+02 

9.931E-01 

2.813E*0I 

£ 

36, 50) 

200 

1 .853E-05 

0. OOOE+OO ' 

1 . 691E*02 

9.921E-01 

2-809E*01 

C 

36, 50) 

210 

1 . 184E-05 

O.OOOE+OO 

1 . 690E*02 

9 . 91 IE- 0 1 

2.806E*01 

( 

36, 50) 

220 

7. 755E-06 

0 . 000E*0O 

1 . 690E*02 

9.904E-01 

2.805E* 01 

( 

36, 50) 

230 

5.01 0E- 06 

0. OOOE+OO 

1 . 690E*02 

9.899E-01 

2.804E*01 

f 

36, 50) 

240 

3.236E-06 

O.OOOE-OO 

1 .689E*02 

9 . 896E-01 

2.804E* 01 

( 

36, 50) 

250 

2.078E-06 

0 . OOOE+O 0 

1.689E*02 

9.895E-01 

2.804E* 01 

( 

36, 50) 

260 

1.324E-06 

0 . 000E* 00 

1.689E*02 

9 . 894E-01 

2 .804E* 0 1 

( 

36, 50) 

27 0 

8.324E-07 

0. OGOE+OO 

1 . 689E*02 

9.894E-01 

2.S04E-01 

( 

36, 50) 

280 

5. 134E-07 

0 . 000E* 00 

1 . 689E*02 

9.895E-01 

2.804E*01 

< 

36, 50) 

290 

3. 148E-07 

0 . OCOE+QO 

1 . 689E* 02 

9 .895E-01 

2.804E*01 

( 

^6, 50) 

300 

2. 079E-07 

0 . 0 OOE^OO 

1 . 689E* 02 

9.695E-01 

2.804E* 01 

( 

36, 50) 

310 

1 . 358E-07 

O.OOOE^OO 

1 . 689E* 02 

9.895E-01 

2.804E* 01 

( 

36, 50) 

320 

S.785E-08 

0 . OOOE^OO 

1 . 689E+ 02 

9.895E-01 

2.804E+01 

( 

36, 50) 


8.31 7E*’03 

2. 21 2E*01 

1 . 661E*03 


14, 2) 

1 . 934E*03 

8.537E*00 

4. 0 15E+ 02 


10, 2) 

1 . 1 18E+02 

1 . 6 09E*00 

7. 824E*00 


34, 49) 

8. 934E*01 

1 . 227E+00 

1 . 293E*01 


12, 50) 

8. 236E* 01 

9.646E-01 

9.48^*00 


13, 50) 

7.754E*01 

7.628E-01 

9.728E*00 


6, 27) 

7.542E*01 

6 . 961E-01 

1. 062E*01 


5, 29) 

6. 774E*01 

5. 359E-01 

1 . 077E*01 


5, 30) 

6 . 0 1 5E* 0 1 

4.650E-01 

1.043E*01 


5, 31) 

5.31 2E+01 

3. 777E-01 

9.873E*00 


5, 32) 

4 . 6 03E*01 

3. 144E-01 

9.073E-00 


5, 33) 

3 . A79£*01 

2.507E-01 

7.924E*00 


5, 3 4) 

3. 129E*01 

1 . 930E-01 

6 . 478E+00 


5, 35) 

2.409E*01 

1.426E-01 

5.181E*00 


4, 36) 

1.760E*0l 

9.995E-02 

3.862E*00 


4, 37) 

1.219E*01 

6.738E-02 

2. 78lE*00 


4, 37) 

a.oiiE^co 

4.305E-02 

1.863E*00 


4, 38) 

5. 022E* 00 

2.671E-02 

1.151E*-00 


4, 39) 

3. 040E* 00 

1 . 637E-02 

6 . 930E-01 


4, 39) 

1 .81 2E*00 

9.946E-03 

3. 958E-01 


4, 40) 

1.091E*00 

6.006E-03 

2. 365E-01 


4, 34) 

6 . 785E-01 

3.707E-03 

1.587E-01 


4, 35) 

4.342E-01 

2.325E-03 

1.048E-01 


4, 36) 

2.806E-01 

1 . 493E-03 

6. 807E-02 


4, 37) 

1.796E-01 

9.463E-04 

4. 309E-02 


4, 38) 

1.132E-01 

5.904E-04 

2. 668E-02 


4, 38) 

7 . 073E-O2 

3.675E-04 

1 . 629E-02 


4, 39) 

4.453E-02 

2.330E-04 

9.662E-03 


4, 40) 

2.867E-02 

1.500E-04 

6. 006E-03 


4, 34) 

1.885E-02 

9.854E-05 

4. 243E-03 


4, 35) 

1.246E-02 

6.51 IE-05 

2.916E-03 

( 

4, 36) 

8.120E-03 

4.225E-05 

1.929E-03 

( 

4, 37) 

5 . 156E-03 

2 . 660E-05 

1 . 218E-03 

( 

4, 38) 

3-188E-03 

1 . 656E-05 

7.634E-04 

( 

4, 38) 
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330 

5.756E-08 

0 . 0 0QE* 00 

1.689E+02 

9.895E-01 

2.804E*01 

( 36, 

50^ 

1.946E-03 

1.035E-05 

4 . 567E- 04 ( 

4, 

39) 

340 

3.730E-08 

o.oose^oo 

1 .689E+02 

9.895E-01 

2 .804E*01 

( 36, 

50) 

1 .204E-03 

6.586E-06 

2.643E-04 ( 

4, 

40) 

350 

STOP 

2.386E-08 
(called by 

o.oqoe*oo 

MAIN ) 

1.689E+D2 

9-895E-01 

2.804E+01 

( 36, 

50) 

7.772E-04 

4. 30IE-06 

1.651E-04 C 

4, 

34) 


This case used 18.2 seconds of CPU time. 


C ompu ted Results 


In Figure 9.4 the computed static pressure coefficient, defined as (p — p f )l(pri#l2g e ) is plotted as a func- 
tion of 6 for both the Euler and viscous flow cases. Also shown are the experimental data of Grove, Shair, 
Petersen, and Acrivos (1964), and the exact solution for potential flow. 



CIRCUMFERENTIAL LOCATION, DEGREES 

Figure 9.4 - Pressure coefficient for flow past a circular cylinder. 
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9.3 TRANSONIC DIFFUSER FLOW 


Problem Description 

In this test case, transonic turbulent flow was computed in a converging-diverging duct. The flow en- 
tered the duct subsonically, accelerated through the throat to supersonic speed, then decelerated through a 
normal shock and exited the duct subsonically. Extensive experimental data are available for flow through 
this duct (Chen, Sajben, and Kroutil, 1979; Bogax, Sajben and Kroutil, 1983; Salmon, Bogar, and Sajben, 
1983; Sajben, Bogar, and Kroutil, 1984; Bogar, 1986). The computational domain is shown in Figure 9.5. 



Figure 9.5 - Computational domain for transonic diffuser flow. 


Reference Conditions 

The throat height of 0.14435 ft. was used as the reference length L,. The reference velocity u r was 100 
ft/sec. The reference temperature and density were 525.602 °R and 0.1005 lb m /ft 3 , respectively. These val- 
ues match the inlet total temperature and total pressure used in other numerical simulations of this flow 
(Hsieh, Bogar, and Coakley, 1987). 

Computational Coordinates 

The x coordinate for this duct runs from — 4.04 to + 8.65. The Cartesian coordinates of the bottom 
wall are simply y = 0 for all x. For the top wall, the y coordinate is given by (Bogar, Sajben, and Kroutil, 
1983) 


C 1.4144 for x< — 2.598 

y = ^ a cosh £/(a — 1 + cosh Q f° r — 2.598 < x< 7.216 
[l.5 for x> 7.216 

where the parameter ( is defined as 

_ C)(x/x/)[l + C 2 x/x,] Ci 
(1-x/x/ 4 

The various constants used in the formula for the top wall height in the converging ( - 2.598 < x < 0) and 
diverging (0 < x < 7.216) parts of the duct are given in the following table. 


Constant 

Converging 

Diverging 

a 

1.4114 

1.5 

X/ 

- 2.598 

7.216 

Q 

0.81 

2.25 

C 2 

1.0 

0.0 

c 3 

0.5 

0.0 

Q 

0.6 

0.6 
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A body-fitted coordinate system was generated for this duct and stored in an unformatted file to be read 
by Proteus. The Cray runstream used to generate this file is listed below. Note that the Fortran program 
is included in the JCL as a UNICOS "here document". 

# QSUB -1M l.OmW -IT 60 

# QSUB -mb -me 

# QSUB -o temp. out 

# QSUB -eo 

# QSUB -r sajbenO 

# QSUB -s /bin/sh 
set -x 

ja 

touch sajben . coords 
In saiben . coords fort. 7 
cat > temp.f << EOF 


c 

c This program generates a coordinate system for the 2~d 

c converging-diverging Sajben nozzle, 

c 

c Fortran variable definitions 

c 

c nx number of grid points in x direction 

c ny - number of grid points in y direction 

c nit - number of smoothing iterations 

c nsm - spatial extent of smoothing region 

c np2 - x index at xp2 

c npl - x index at xpl 

c xmin - minimum value of x 

c xmax - maximum value of x 

c xpl - start of fine grid 

c xp2 - end of fine grid 

c 

c Output computed: 

c 

c x(i,i) - x coordinates at grid points 

c y(i,j) - y coordinates at grid points 

c 


dimension p(15G) ,q(150) 
dimension x(150,150) ,y(150,150) 
c 


c Set constants for coordinates of top wall. "m" for converging 

c— section, "p" for diverging section. 

c 


data alfam,dlm,clm,c2m,c3m,c4m /I . 4114, -2 . 598,0 .81,1.0,0.5,0.6/ 
data alfap,dlp,clp,c2p,c3p,c4p /l. 5 , 7.216,2.25,0.0,0.0,0.6/ 

c 

c Define parameters 

c 

xmin = -4.04 
xmax = 8.650 
xpl = 0.0 
xp2 = 4.0 
nx = 81 
ny = 51 
ymin = 0.0 
ymax = 1.0 
npl = 20 
np2 = 57 

xincl = (xpl - xmin)/(npl - 1) 

xinc2 = Cxp2 - xpl) /(np2 - npl) 

xinc3 = (xmax - xp2) /(nx - np2) 

yincr = (ymax - ymin)/(ny - 1) 

nit = 8 
c 

c Set up fine and coarse grid 

c 

p(l) = xmin 
do 10 i = 2,nx 

if (i .le. npl) xincr = xincl 

if (i .gt. npl .and. i . le . np2) xincr = xinc2 
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if (i -gt. np2) xincr = xinc3 
pCi) = pCi-1) + xincr 
10 continue 

c 

C Smooth mesh by averaging between npl and np2 

c 

do 30 iter = l,nit 
do 20 i = 2,nx-l 
pCi) = (pCi-1) + pCi+l))*0.5 
20 continue 

30 continue 

c 

c Generate coordinates of top wall 

c 

do 100 i = 1 >nx 
if CpCi) .It. 0.0) then 

c Converging section 

xbar = p(i)/dlm 

xd = 1. - xbar 

if Cxd .le. 0.0) xd = l.e-3 

xi - clm*xbar*C C 1 . +c2m*xbar)**c3m)/(xd**c4m) 
qCi) = alf am*coshCxi )/ C Calf am- 1 . 0) + cosh(xi)) 
else if CpC i ) .ge. 0.0) then 

c Diverging section 

xbar = p(i)/dlp 

xd = 1 . - xbar 

if Cxd .le. 0.0) xd = l.e-3 

xi = clp*xbar*( C 1 . +c2p*xbar)**c3p)/ (xd**c<*p) 
q ( i ) = alfapXcoshCxi )/C (alfap-1 . 0) + cosh(xi)) 
endif 

100 continue 
c 

c Generate x and y arrays 

c 

do 200 i - 1 > nx 
do 200 j » 1 ,ny 
xC i , j) = pC i) 

ytemp = Cj-l)*yincr + ymin 
yC i , j) = qCi)*ytemp/ymax 
200 continue 
c 

c Write unformatted coordinate system file 

c 

write C7 ) nx ; ny 

write C7) C CxC i , j ) > i = l t nx) , j-1 *ny ) , 

$ CCyCi, j) ,i=l,nx) , j=l,ny) 

stop 
end 

EOF 

cft77 -d pq temp . f 
segldr -o temp. ex temp . o 
temp . ex 
ja -cslt 

The resulting body-fitted coordinate system is shown in Figure 9.5. For clarity, the grid points are 
thinned by factors of 2 and 10 in the x and y directions, respectively. Note that for good resolution of the 
flow near the normal shock, the grid defining the computational coordinate system is denser in the * di- 
rection in the region just downstream of the throat. In the y direction, the computational coordinates are 
evenly spaced. The computational mesh , however, was tightly packed near both walls to resolve the tur- 
bulent boundary layers. 34 


34 The distinction between the computational coordinate system and the computational mesh is explained in Section 

2 . 2 . 
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Initial Conditions 


The initial conditions were simply zero velocity and constant pressure and temperature. Thus, 
u = v = 0 and p = T = 1 everywhere in the flow field. 

Boundary Conditions 

This calculation was performed in three separate runs. In the first run, the exit static pressure was 
gradually lowered to a value low enough to establish supersonic flow throughout the diverging portion of 
the duct. The pressure was lowered as follows: 


ro.99 for 1 < n< 100 

p(t) = < — 2.1405 x 10~ 3 /2+ 1.20405 for 101 <n< 500 
(^0. 1338 for 501 <n< 3001 


where n is the time level. The equation for p for 101 < n< 500 is simply a linear interpolation between 
p = 0.99 and p = 0. 1 338. In the second run, the exit pressure was gradually raised to a value consistent with 
the formation of a normal shock just downstream of the throat. Thus, 


f 3.4327 x 10~ 4 /2 - 0.89636 for 3001 < n < 5000 
Pit) = < 

|^0.82 for 5001 < n < 6001 

Again, the equation for p for 3001 < n< 5000 is simply a linear interpolation between p = 0.1338 and 
p = 0.82. In the third run, the exit pressure was kept constant at 0.82. 

The remaining boundary conditions were the same for all runs. At the inlet, constant total pressure and 
temperature were specified, and the ^-velocity and the normal gradient of the x - velocity were both set equal 
to zero. At the exit, the normal gradients of temperature and both velocity components were set equal to 
zero. At both walls, no-slip adiabatic conditions were used, and the normal pressure gradient was set equal 
to zero. 


are summarized in the following table. 


These boundary conditions 


Boundary 

f = 0 
£=1 
v = 0 
> 7=1 


Proteus JCL and Input File 


Boundary Conditions 

du\dn = 0, v = 0, /?r = T r — 1 
dujdn — dvjdn = 0, p = p(t) y dTjdn = 0 
u = v = 0, dpjdn — dTjdn = 0 
u = v = 0, dpjdn — dTjdn — 0 


The Cray UNICOS job control language used for the first run is listed below, including the namelist 
input. In namelist BC, note that at £ = 1 the fourth boundary condition type is specified by JBC 1(4,2) as 
p = /, and that the value /is specified by the table of GTBC1(_,4,2) vr. NTBCA. In namelist NUM, the 
values of CAVS2E and CAVS4E are based on experience for internal flows with normal shocks. The op- 
timum values for these parameters seem to be a function of the type of flow, the type of time differencing, 
and the size of the time step. In namelist TIME, a small CFL value is being used. This minimized starting 
transients and enhanced stability when using an unsteady pressure boundary condition. Note that the time 
level will run from 1 to 3001, but that the time levels in the unsteady boundary condition table only run 
from 100 to 500. This causes a warning message to be printed. For n < 100 the boundary condition value 
will be set equal to the first value in the table, and for n > 500 it will be set equal to the last value in the 
table. 
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The input includes a brief explanation of each line, and should be compared with the detailed input 
description in Section 3.0, This JCL is essentially the same as the example presented in Section 8.3, but 
with lines eliminated that are not applicable to this case. 

ft QSUB -1M 2 . OmW -IT 1800 

ft QSUB -mb -me 

ft QSUB -o temp. out 

ft QSUB -eo 

ft QSUB -r sajbenl 

ft QSUB -s /bin/sh 

set -x 

ja 

ft Create modifications file 

cat > mods << EOM 
*id temp 
*d paramsl.19 

parameter (nip =81, n2p = 51) 

EOM 

ft Set up and link necessary input/output files 

touch plotx 
touch plotq 
touch chist 
touch rql 
touch rxl 

In sajben . coords fort. 7 
In plotx fort. 8 

In plotq fort. 9 

In chist fort. 10 

In rql fort. 12 

In rxl fort. 14 

ft Update code using modifications file 

update -p p2d20.u -i mods -c temp -f 
cft77 -d pq -o aggress temp.f 

ft Load and run 


segldr -o temp. ex temp.o 
temp. ex << EOD 

Transonic Diffuser Flow, Run 1 
Srstrt 
irest=l , 

Send 

Sio 

ivout=l ,4,30/47*0, 
iwout2=-l , -1 , 
iprt=l 0000 , 
iprtl=2, iprt2=l, 
iplot=3 , 

Send 
Sgmtry 
ngeom=10 , 

Send 
8f low 

lr=0 . 14435 , 
ur=l 00 . , 
tr=525 . 602 , 
rhor=0 . 1005, 
gamr=l . 4, 

Send 


Write restart files . 

Print u, M r p. 

Print parameters along r\ boundaries. 

Print every 10,000 time levels . 

Print at every other £ index , every r\ index . 
Write PLOT 3D 3-D plot files . 

Get computational coordinates from file . 

Set Lr . 

Set Ur. 

Set 7/ 

Set p r . 

Constant specific heats . 


Sbc 

jbcl ( 1 , 1)=57 , jbclCl ,2)=53, gbcl ( 1 , 1 )=1 . , 


gbclCl,2)=0. , 


1, dTldn = 0 
at £ = 0, 1. 
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jbcl (2, 1 )=13, jbcl (2 ,2)=13, 
jbcl (3, 1 ) =21 , jbcl(3,2)=23. 


gbcl(2,l)=0. 
gbcl( 3, 1) = 0 . 


jbcl(4,l)=47, jbcl(4,2)=41, gbcl(4,l)=l 


jbc2( 1 , 1 ) =53 , jbc2(l,2)=53 J 
jbc2C2,l)=ll, jbc2(2,2)=ll k 
jbc2(3, 1 ) =21 , jbc2(3,2)=21 J 
jbc2(4,l)=43, jbc2(4,2)=43 J 
jtbcl(4,2)=l, 
ntbc=2, 

ntbca=100,500, 
gtbcl ( 1,4,2)=0.99, gtbcl(2. 
Send 
Snum 

nl=81, n2=51 , 
ipack(2)=l , 

sq(2,l)=0.5, sq(2,2)=1.002 ( 
iav4e=2, iav2e=2, iav2i=0, 
cavs4e=4*0 .005, cavs2e=4*0 
Send 
Stime 
idtmod= 1 j 
idtau=5, cfl=0.5, 
ntime=30Q0 , 

ictest=l, eps=4*Q . 000G01 , 
Send 
Sturb 
i turb=l , 

Send 

Sic 

Send 

EOD 

ja -cslt 


gbc2C 1 , 1 ) = 0 . , 
gbc2(2, 1) = 0 . , 
gbc2(3, 1 ) = 0 . , 
gbc2C 4 , 1 ) = 0 . 


gbcl (2, 2)= 
gbclC3,2) : 


gbc2(l,2) 
gbc2C2 > 2 ) 
gbc2<3,2) 
gbc2(4,2) 


0. 

0. 

0 . 

0 . 


du/dn = 0 at q — 0, I. 
v — 0, dvfdn = 0 

of * = 0, 1. 

p T = 1, p specified 
at £ = 0, 1. 
dTjdn= 0 at r\ = 0, 1. 
u = 0 at yj = 0 , 1. 
v = 0 at rj = 0, 1. 
dpjdn — 0 at rj = 0, L 


4th. b. c. at £ = 1 is general unsteady. 

2 values in b. c. table. 

Time levels in b . c. table. 

4 , 2 ) = 0 . 1 338 , Values in b. c. table . 

Use an 81 x 51 mesh. 

Pack in r\ direction. 

Pack fairly tightly near both rj boundaries . 

Use nonlinear coefficient artificial viscosity . 

1 , cavs2i = 4*0 . , Artificial viscosity coefficients. 

Recompute At every time step. 

Spatially varying At. 

Limit of 3000 time steps. 

Use AQ max = 10“ 6 as convergence criteria . 

Turbulent flow, Baldwin- Lomax model. 

Use default initial conditions. 


The JCL and input for the second run were similar to that used for the first run. The only differences 
were: 

1. The touch and In commands for the restart files were changed to: 

touch rq2 
touch rx2 

In sajben.rql fort. 11 
In sajben.rq2 fort. 12 
In sajben.rxl fort. 13 
In sajben.rx2 fort. 14 


2. In the TITLE, Run 1 was changed to Run 2. 

3. In namelist RSTRT, IREST was set equal to 2, to read and write restart files. 

4. In namelist BC, the time levels NTBCA in the boundary condition table were 3001 and 5000, and 
the values GTBC1(1,4,2) and GTBC1(2,4 1 2) were 0.1338 and 0.82. 

The JCL and input for the third run were similar to that used for the second run. The only differences 
were: 

1. The touch and In commands for the restart files were changed to: 


touch rq3 
touch rx3 

In sajben.rq2 fort. 11 
In sajben.rq3 fort. 12 
In sajben.rx2 fort. 13 
In sajben.rx3 fort. 14 
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2. In the TITLE, Run 2 was changed to Run 3. 

3. In namelist BC, GBC 1(4,2) was specified as 0.82. The parameters JTBC 1(4,2), NTBC, NTBCA, 
and GTBC1 were defaulted. 

4. In namelist NUM, CAVS4E was lowered to 5*0.0004. 

5. In namelist TIME, CFL was raised to 5.0. 

Note that restart files were written and saved at the end of the third run in case a fourth run was nec- 
essary. A fourth run was not used for this case, however. 

Standard Proteus Output 

The output listing for the third run is shown below. In the flow field printout, only the Mach number 
at the last time level is included. 

NASA Lewis Research Center 
Internal Fluid Mechanics Division 
2-d Proteus version 2.0 
January 1992 


Transonic Diffuser Flow, R 
SRSTRT I REST * 2, NRQIN 


&IO 

I DEBUG = 

20*0, 

I PLOT = 2 

2, 

4, 

6-, 8 

, 10 , 

12, 

, 14, 

54, 

56, 

58, 

60, 

62, 

64, 

10 , 

11, 

12, 

13, 

14, 

15, 

36, 

37, 

38, 

39, 

40, 

41, 

IWOUT1 = 

2*0, 

IW0UT2 = 

2*-l 


™? U ! . 2. IPRT2 . 1. IPRTA - 10,-0 IPRT1A - 1. 

14 18 20 22. 2«, 24, 28, SO. 32, 3«. 36 . 38, <0, 42, 44, 44, 48, 50, 52, 

tl 48?’ 70, 72, 74, 74, 78? 80, 81, 30-0, IPRT2A = 1, 2. 3, 4, S, 4, 7, 8, 0, 

* -- 21, 22, 23, 24, 25, 26, 2?, 28, 29, 30, 31, 32, 

47, 4ft, 49, 50, 51, I UNITS = 0, IVOUT = 1, 4, 30, 

NHMAX = 100, NOUT * 5, NPLOT = 9, NPLOTX = ft, NSCR1 * 20, SEND 

THMAX = 90.1, THMIN = 0.0, XMAX * 1.0, XMIN * 0.0, YMAX = 1-0, 


16 17 lfi, 19, 20, 99 ” M 06 . 27. 28 . 29. 30, si, o*, 33, 34, 35, 

42^ 43! 44*, 45* 46, 

NGRID = 7, NHIST = 10, 

RMAX = 1.0, RMIN - 0.0, 

= 0, IKSTAG = 0, UAHV = 0, ISWIRL = 0, 1THIN = 2»0, KTR = 0.0, 

RER = 0.0, RG = 1716.0, RHOR = 0.1005, TR = £25.602, UR * 100.0, 

FBCT2 = 324*0. 0, GBC1 - 1.0, 2-0.0, 1.0, 3-0.0, 0.82, 

GTBCl = 80-0 0, 6TBC2 5 80*0.0, IBC1 * 408-0, IBC2 = 648-0, IBCT1 = 51-0, 
tilt ftlSJfl! JBC? =57, 13, 21, 47, S3, 13, 23, 41, JBC2 = 53, 11, 21 
10, JBCT2 = 0, 10, C, 10, JTBCl = 8*0, 


8 GMTRY I AX I * 0, 

VMIN = 0.0, SEND 

ftFLOW GAMR = 1.4, HSTAGR * 0.0, ICVARS = 2, IEULER 
LR = 0.14435, MACHR * 0.0, MUR * 0.0, PRLR * 0.0, 

SBC FBCl = 408*0.0, FBC2 = 648-0.0, FBCT1 * 204i»6.ff, 

GBC 2 = 8-0.0, GBCT1 = 4-0.0, GBCT2 = 4-0.0, 

51-10, 51*0, 51*10, IBCT2 = 81-0, 81*10, 

43 , 53, 11, 21, 43, JBCT1 =0, 10, 0, 

KBC2 = 2-0, NTBC = 0, NTBCA * 10*0, SEND 
8 NUM CAVS2E = 4-0.1, CAVS2I = 4-0.0, CAVS4E = 4-4.0E-04 
N2 * 51, SO * 0.0, 0.5, 10000.0, 1.002, THC * 1-0, 

THY = 1.0, 2-0.0, THZ = 1.0, 2*0.0, SEND 

fiTIME CFL = 5-0, 9-1.0, CFL MAX = 10.0, CFLHIN * 0.5, 

DTF2 = 1.25, DTMAX = 1.0E-02, DTMIN = 1.0E-02, EPS = 

NDTCYC * 2, NITAVG = 10, NTIME = 3000, 9-0, NTSEQ - 1 _ 

STURB APLUS =26.0, CB = 5.5, CCLAU = 1.68E-02, CCP ■ I . 6, CKLCB = 0.3, 
CN' = 1.7, CONE = 1.35, CTWOR = 1.8, CTHREE = 1.15E-02, CVK - 0.4, CWK 


SEND 


JTBC 2 = 8-0, KBC1 * 2*0, 


IAV2E = 2, IAV2I = 0, IAV4E 
2*0.0, THE = 1.0, 2*0.0, THKE 


2, I PACK = 0, 1, N1 = 81, 

1.0, 0.0, THX = 1.0, 2*0.0, 


ITIIRB = 1, 1TXI = 1, IWALL1 = 2*-l,' IWALL2 = 2«-l, 
REXT2 = 0.0, TFACT =1.0, SEND 


CHG1 = 4.0E-O2, CHG2 * 6.0E-02, DT * 10*1.0E-02, DTF1 = 1.25, 
4-1.0E-06, I CHECK = 10, ICTEST = 1, IDTAU * 5, IDTMOD = I, 

,, TLIH = 2.-., . . i( CHUR = 9.0E-02# CKA-2.0. 

t 0.25, ILDAMP = 0, INN r R = 1, ITETA = 0, 
LWALL1 = 102-0, L WALL 2 * 162*0, NTKE = 1, PKT = 0.91, REXT1 = 


0 . 0 , 


Normalizing conditions 

Length, lr 
Velocity, ur 
Temperature, tr 
Density, rhor 
Viscosity, mur 
Thermal conductivity, ktr 
Pressure, rhor*ur**2 
Energy/vol. , rhor«ur**2 
Gas constant, ur**2/tr 
Specific heat, ur«"2/tr 
Stagnation enthalpy, ur**2 
Time, lr/ur 


= 1 . 4435E-01 ft 

* 1 . OODOE*02 ft/sec 
= 5.256 OE* 02 deg R 

= 1 . 0050E-01 lbm/f t3 

* 1.2152E-05 lbm/ft-sec 

* 1 . 0309E- 0 1 lbm-f t/sec3-deg R 

* 1 . 0050E+ 0 3 lbm/f t-sec2 
= 1 . 0050E* 03 lbm/f t-sec2 

* 1 . 9D26E+01 f t2/sec2-deg R 
a 1.9026E*01 ft2/sec2-deg R 
= 1.OO0OE+O4 ft2/sec2 

= 1.4435E-03 sec 


Reference conditions 


Reynolds number, rer 
Mach number, machr 
Specific heat ratio, gamr 
Laminar Prandtl number, prlr 
"Reference” Prandtl number, prr 
Specific heat at const, press. 
Specific heat at const, vol. 

Gas constant, rg 
Pressure, pr 

Stagnation enthalpy, hstagr 


= 1.1938E*05 

* 8.8992E-02 
S 1.4000E+00 

* 7 . 0801E- 0 1 
= 2.2428E-03 

* 6.0060E-03 

* 4 . 2900E*G3 

* 1.7160E-0S 
- 2.8173E-03 
= 3. 1618E+06 


f t2/sec2-d*g R 
ft2/sec2-deg R 
ft2/sec2-d«9 R 
lbf / ft2 
ft2/sec2 


jbel(l,n = 

57 

gbcl (1 ,1) 


1 .OOOOE + OO 

3bclC2,lJ = 

13 

gbcl (2, 1) 

* 

0 . 0000E+ 00 

jbcl (3, 1 ) = 

21 

gbcl (3,1) 

s 

0 . OOOOE* 0 0 

jbcl (4, 11 = 

47 

gbcl (4, l J 

r 

1 . 0000E+00 


Boundary condition parameters 


jbc2(l, 21 = 

53 

gbc2( 1 ,2) = 

0 . OOOOE* 00 

jbc2C2,2) = 

11 

gbc2(2, 2) = 

0 . OOOOE+OO 

jbc2(3,2) = 

21 

gbc2(3, 2) = 

0.000 0E+ 0 0 

jbc2(4, 2) = 

43 

gbc2(4,2) = 

0. 000 OE-*' 00 


jbcl ( 1 , 2) 

x 

53 

gbcl (1,2) = 

0. OOOOE-OO 

jbcl (2, 2) 

= 

13 

gbcl (2, 2) = 

O.OOOOE-OO 

jbcl (3,2) 

V 

23 

gbcl (3,2) = 

0 . 000 CE* 0 0 

jbc 1 ( 4, 2) 

r 

41 

gbcl (4, 2) = 

8.2000E-01 
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jbc2(l,l) = 

53 

9 bc 2 (l,l) = 

0. OOOOE’OO 

jbc2C2, 1 1 = 

11 

9 bc 2 ( 2 ,l) * 

O.OOOOE+OO 

jbc2(3 t 1) = 

21 

gbc2C3,l) = 

O.OOOOE+OO 

j bc2(4 r 1 ) = 

43 

gbc2(4 # l) * 

O.OOOOE+OO 


Mach number at time level 9001 


ixi 

ieta 

51 

= I 

2 

4 

6 

6 

10 

12 

14 

16 

18 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

50 

1.8496E-01 

1 .8757E-01 

1 .S201E-01 

1.5459E-01 

1-2994E-01 

1 .8357E-01 

2.3634E-Q1 

2.8125E-D1 

2.9193E-01 

2 . 9279E-01 

49 

2.5903E-01 

2.6202E-01 

2.5812E-01 

2.2602E-01 

1 . 9 081E-01 

2.5791E-01 

3.2673E-01 

4 . 0 066E-0 1 

4.2434E-01 

4 . 3090E- 01 

46 

3.0048E-01 

3 . 0339E-0 i 

2.9784E-01 

2 . 6447E- 0 1 

2. 21 35E-0I 

2 - 9508E-01 

3. 7407E- 01 

4 . 6242E-0 1 

4.9105E-01 

5. 0205E-01 

47 

3.3486E-01 

3.3751E-01 

3. 2632E-01 

2.926 0E- 0 1 

2.41 88E - 0 1 

3 . 2062E-01 

4. 1336E-01 

5.1 184E-01 

5 . 4041E- 01 

5.5O84E-01 

46 

3. 6652E-C1 

3. 6675E-01 

3. 4981E- 0 1 

3.1 656E- 0 1 

2. 5866E-01 

3 . 4079E-01 

4.5318E-01 

5.6220E-01 

5.8869E-01 

5.9363E-0I 

45 

3.9512E-01 

3.9682E-01 

3. 7047E-01 

3.3849E-01 

2.7407E-01 

3.5770E-01 

4.9366E-01 

6.1330E-01 

6.417 0E- 01 

6.3952E-01 

44 

4. 1973E-01 

4.2065E-0I 

3. 8902E-01 

3.591 2E- 0 1 

2.8927E- 01 

3.7216E-01 

5.3142E-01 

6.5975E-01 

6 . 9808E- 01 

6 . 9231E-01 

43 

4.3944E-01 

4 . 400 0E- 01 

4. 0563E-01 

3 . 78S5E- 0 1 

3.0477E-01 

3.8470E-01 

5.6384E-01 

6 . 9757E-0 1 

7.5151E-Q1 

7 . 5049E-01 

42 

4.5059E-01 

4.5077E-01 

4.2020E-01 

3.9651E-01 

3 . 2073E-01 

3. 9594E-01 

5.8956E-01 

7.2555E-01 

7 . 9532E- 01 

8.0813E-01 

41 

4.5230E-01 

4.5239E-01 

4 . 3231E-01 

4.1240E-OI 

3. 3707E- 01 

4. 0658E-01 

6 . 0668E- 0 1 

7 . 4477E-01 

8.2604E-01 

8.5769E-01 

40 

4.5144E-01 

4.5156E-01 

4. 4358E-01 

4.2539E-01 

3.5344E-C1 

4.1692E-01 

6 . 1624E- 01 

7.5724E-01 

8. 4399E- 01 

8. 9249E-01 

39 

4.5249E-01 

4.5259E-01 

4 . 4809E-01 

4.3459E-01 

3.6926E-01 

4 . 2707E- 0 1 

6 . 2321E- 01 

7.6503E-01 

8.5453E-01 

9.0985E-01 

38 

4.5481E-01 

4 . 5486E-01 

4.5234E-01 

4.3951E-01 

3.8370E-01 

4.37G5E-01 

6.2941E-01 

7.6979E-01 

8.6038E-01 

9 . 1679E-01 

37 

4.5636E-01 

4 . 5637E-OI 

4 . 5436E-01 

4.411SE-01 

3.9580E-01 

4. 4655E-01 

6.3429E-01 

7 . 7262E-OI 

8.62I7E-01 

9 . 1901 E- 01 

36 

4.5657E-01 

4.5657E-01 

4.5473E-01 

4.4263E-C1 

4 . 0477E-0 1 

4.5490E-01 

6.3733E-01 

7.7425E-01 

8.6431E-01 

9 . 220 0E- 01 

35 

4.5689E- 01 

4.5688E-01 

4. 5528E-01 

4 . 4449E- 01 

4.1113E-01 

4. 6177E-01 

6 - 3835E- 0 1 

7.7488E-01 

8. 6775E-0 1 

9 . 2659E- 01 

34 

4.5761E-01 

4.5758E-01 

4.5615E-01 

4 . 4620E- 01 

4 . 1 66 IE- 01 

4.6732E-01 

6.3726E-01 

7.7436E-01 

S.6812E-01 

9.2826E-C1 

33 

4.5748E-01 

4.5744E-01 

4.5597E-01 

4 . 4651E-01 

4. 2075E- 0 1 

4.7202E-01 

6 . 3389E-01 

7.7207E-01 

8. 6597E- 0 1 

9.2768E-01 

32 

4.5642E-01 

4.5639E-01 

4 . 5484E-01 

4.4606E-01 

4. 2544E- 01 

4. 7754E-01 

6 . 3053E- 0 1 

7. 6691E-01 

8. 6360E- 01 

9.2702E-01 

31 

4.5613E-01 

4.5610E-01 

4.5469E-01 

4 . 4734E-01 

4.3300E-01 

4.8583E-01 

6.2895E-01 

7.6023E-01 

8.5894E-01 

9.2444E-01 

30 

4.S682E-01 

4 . 5676E-01 

4.5570E-01 

4.5019E-01 

4 . 4200E- 01 

4. 9529E-01 

6.2774E-01 

7.5353E-01 

8-5212E-01 

9.1969E-01 

29 

4.5742E-01 

4 . 5732E-01 

4 . 5670E- 01 

4.5321E-OI 

4.5O85E-01 

5. 0418E-01 

6 . 2615E-01 

7.4646E-01 

6.4524E-01 

9.1488E-01 

28 

4.5617E-01 

4 . 5805E- 01 

4 . 5801E-01 

4.5671E-01 

4.5985E- 01 

5. 1 277E-01 

6.2496E-01 

7.3983E-01 

8 . 3923E- 01 

9.1083E-01 

27 

4.5694E-01 

4.5881E-01 

4 . 5940E-01 

4 . 6024E-01 

4.6802E-01 

5. 2020E- 01 

6 . 2383E- 01 

7.3413E-01 

8.3370E-01 

9.0712E-01 

26 

4 . 5966E- 01 

4 . 5953E-01 

4 . 6080E-01 

4.6370E-01 

4.7539E-01 

5. 2659E-01 

6.2290E-01 

7.2915E-01 

8 . 2835E- 0 1 

9 . 0325E- 01 

25 

4.6022E-01 

4.6012E-01 

4 . 6197E-01 

4 . 6652E-01 

4.8134E-01 

5. 3155E-01 

6.2186E-01 

7.2483E-01 

8 . 2322E-01 

8.9925E-01 

24 

4. 6081E-01 

4 . 6072E- 01 

4. 6313E-01 

4 . 6888E- 01 

4.8581E-01 

5. 3523E-01 

6.2097E-01 

7.2128E-01 

8. 1921E-01 

8, 9588E-01 

23 

4.6145E-01 

4 . 6136E- 01 

4.6433E-01 

4.711 2E-01 

4.8969E-01 

5. 3851E-01 

6.2054E-01 

7. 1863E-01 

8. 1660E-01 

8. 9415E-01 

22 

4.6190E-01 

4.61 85E-01 

4 . 6523E-C1 

4 . 7274E- 01 

4 . 9259E-01 

5. 4088E-01 

6 . 2017E- 01 

7 . 1686E-01 

8. 1 454E-01 

8.9263E-01 

21 

4 . 6234E-01 

4 . 6229E- 0 1 

4 . 6601E-01 

4. 7400E-01 

4 . 9480E-01 

5. 4269E-01 

6.1992E-01 

7.1581E-01 

8.1354E-01 

8.91 70E-01 

20 

4. 6292E-01 

4.6287E-01 

4. 6691E-01 

4.7525E-01 

4 . 9677E-01 

5. 4449E-01 

6.2020E-01 

7.1529E-01 

8. 1 305E-01 

8.9153E-01 

19 

4.6367E-01 

4 . 6361E- 0 1 

4. 6791E-01 

4.7649E-01 

4. 9862E-01 

5. 4641E-01 

6.2152E-01 

7.1593E-01 

8. 1 337E- 01 

8.9192E-01 

18 

4.6415E-01 

4 . 6409E-0 1 

4.6861E-01 

4. 7731E- 01 

4.9997E-01 

5. 4805E-01 

6.2315E-01 

7 . 1 760E- 0 1 

8.1516E-01 

8 . 9359E- 01 


17 4.6426E-01 4.6421E-01 4.6889E-01 4.7760E-01 5.0054E-01 5.4876E-01 6.2417E-01 7.1852E-01 8.1639E-01 8.949OE-01 

16 4 . 6416E-01 4.6412E-0I 4.6891E-01 4.7751E-01 5.0057E-01 5.4659E-01 6.2377E-01 7.1765E-01 8.1393E-01 8.9221E-0I 

15 4.6413E-01 4.6409E-01 4.6882E-01 4.7724E-01 5.0036E-01 5.4S27E-01 6.2356E-01 7.1602E-0I 8.0719E-01 8.8533E-01 

14 4.6421E-C1 4.6417E-01 4.6852E-Q1 4.7695E-01 4.9959E-01 5.4710E-01 6-2297E-01 7.1067E-0I 7.9863E-01 8.7715E-01 

13 4.6434E-01 4.6430E-01 4.6757E-01 4.7692E-01 4.9733E-01 5.4293E-01 6.2043E-01 7.0037E-01 7.8819E-01 8.6677E-01 

12 4.6436E-01 4.6433E-01 4.6513E-01 4.7673E-01 4.9184E-01 5.3252E-01 6.1202E-01 6.8593E-01 7.7522E-01 8.5165E-01 

11 4.6366E-01 4.6366E-01 4.6006E-01 4.7369E-01 4.8057E-01 5.1409E-01 5.9399E-01 6.6815E-01 7.5809E-01 8.2524E-01 

10 4.6037E-01 4.6049E-01 4.5031E-01 4.6297E-01 4.6143E-01 4.8865E-01 5.6783E-01 6.4777E-01 7.3389E-01 7.8596E-01 

9 4.5031E-01 4.5075E-01 4.3318E-01 4.4154E-01 4.34S6E-01 4.5979E-01 5.3572E-01 6.2519E-01 7.0250E-01 7.3691E-01 

6 4.3015E-01 4.31 1 7E-01 4.0773E-01 4.1089E-Q1 4.0422E-01 4.2972E-01 4.9906E-01 6.0058E-01 6.6379E-01 6.816SE-01 

7 4. 0157E-01 4, 0329E-01 3.7617E-03 3.7571E-01 3.7371E-01 4.0037E-01 4.6076E-01 5-7377E-01 6.1771E-01 6.2623E-01 

6 3. 6677E-01 3.6914E-01 3.4258E-01 3.4105E-01 3.4593E-01 3.7276E-01 4.2417E-01 5.4417E-01 5.6746E-01 5.7561E-01 

5 3.3007E-01 3.3291E-01 3.1056E-01 3.0878E-01 3.2C56E-01 3.46I2E-01 3.8997E-01 5.I025E-01 5.1711E-01 5.2972E-01 

4 2. 9341E- 01 2. 9650E-01 2.7969E-01 2.7458E-01 2-9392E-01 3.1587E-01 3.5443E-01 4.6812E-0I 4.6631E-01 4.8199E-01 

3 2. 51 36E-01 2.5446E-01 2.4141E-01 2.2647E-01 2.57C3E-01 2.7262E-01 3.0646E-01 4.0738E-01 4.0400E-01 4.1602E-01 

2 1 . 7602E-01 1 .8067E-01 1.6809E-01 1.4420E-01 1.6183E-01 1.8898E-01 2-1206E-01 2.8800E-0! 2.8632E-01 2.8400E-01 

1 0. 0 0 03E + 00 O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO 0.0000E+00 O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO 

ixi * 20 22 24 26 28 30 32 34 36 38 

Uta 

51 0. OOO0E+O0 0 . OOOOE+OO O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO O.OOOOE+OD 0. OOOOE+OO 

50 2 9857E-C1 3.0839E-01 3.1712E-01 S.3423E-01 3.4489E-01 3.5445E-01 3.4078E-01 2-2006E-01 1.484.E-02 6.8543E-03 

49 4. 4181E-0 1 4.5696E-01 4.7099E-01 4.9617E-01 5.1278E-01 5.2884E-01 5.1910E-01 3.8420E-01 7.2053E-02 2.9590E-02 

48 5. 1606E-01 5.3374E-01 5.5041E-01 5.8024E-01 5.9993E-01 6.1950E-Q1 6.1413E-01 4.8475E-01 1.4386E-01 8.7239E-02 

47 5.6688E-01 5.8594E-01 6.0420E-01 6.3782E-01 6.5945E-01 6.8049E-01 6.7878E-01 5.5610E-OI 2.I238E-01 1.4063E-01 

46 6.0807E-01 6.2778E-C1 6.4721E-01 6.8316E-0I 7.0627E-01 7.3020E-01 7.3190E-01 6.1423E-01 2.764IE-01 1.8732E-01 

45 6.4822E-01 6.6782E-01 6.8834E-01 7.2360E-01 7.4820E-01 7.7850E-01 7.8393E-01 6.7O43E-01 3.3866E-01 2.3068E-01 

44 6.9406E-01 7.1250E-01 7.3435E-01 7.6579E-01 7.9226E-01 8.3043E-01 8.4043E-01 7.3464E-01 4.0037E-01 2.7360E-01 

43 7.4805E-01 7.6451E-01 7.8792E-01 8.1480E-01 8.4362E-01 8.8658E-0I 9.0153E-01 8.U92E-02 4.6206E-OI 3.1828E-01 

42 8. 0779E-01 8.2288E-01 8.4778E-01 8.7208E-01 9.0334E-01 9.4516E-01 9.6474E-01 9.0046E-0) 5.2428E-01 3-6654E-01 

41 8.6653E-01 8.8324E-01 9.0972E-01 9.3460E-01 9.6740E-01 1.0045E+00 1.0277E+00 9.9025E-01 5.9589E-01 4.1971E-01 

40 9 . 1523E-01 9. 3795E-01 9.6736E-01 9.9516E-01 1.0282E+00 1.0614E+00 1.0864E+00 1.0671E+00 6.8936E-01 4.7842E-01 

39 9.4570E-01 9.7817^-01 1.0132E+00 1.0436E+00 I.0766E+00 1.1099E+00 1.1337E+00 1.1216E+00 8.0752E-01 5-4227E-01 

38 9.5696E-01 9.9654E-01 1.0367E+00 1.0710E+00 1.1063E+00 1.1412E+00 1.1648E+00 1.1575E+00 9.3761E-01 6.0960E-01 

37 9.S9S9E-01 1.0G01E+00 1.0412E*00 1.0786E+00 1.1172E*00 1.1551E*00 1.1836E+00 1.1853E*00 1.0535E*00 6.7821E-01 

36 9.6296E-01 1.004JE*00 1.0457E*00 1.0844E*00 1.1248E^00 1.1671E*00 1.I994E+00 1.2U1E*00 1.1193E+00 7.4455E-01 

35 9 . 6842E-01 1.0101E*00 1.0525E*00 1.0920E*00 1.1329E*00 1.1764E*00 1.2095E*00 1.2260E*00 1.1308E*00 8.0070E-01 

34 9 . 7099E- 01 1.0128E*00 I.0546E-00 I.O937E^00 I.1339E»00 1.1755E*00 1.2092E+00 1.2290E*00 1.1266E*00 8.3830E-01 

33 9.7133E-01 1.0131E*00 1.0544E*00 1.0926E+00 1.1321E*00 1.1729E*00 1.2077E*00 1.2327E*00 1.1292E*00 8.5465E-01 

32 9 . 7170E-01 1.0136E+OO 1.0543E*00 1.0921E+00 1.1313E*00 1.1722E*00 1.2086E*00 1.2380E*00 1.1326E^00 8.5659E-01 

31 9.7048E-01 1.0127E^00 1.0532E*00 1.0909E+00 1.1296E+00 1.1698E*00 1.2O76E^O0 1.2409E*00 1.1343E-00 8.5227E-01 

30 9.6732E-01 l.OlOlE^OO 1.0503E*00 1.0878E^OO 1.1260E+00 1.1655E*00 l.2054E*00 1.2400E*00 1.1345E*00 8.4482E-01 

29 9 . 641 0E-01 1.0075E*00 1.0474E^00 1.0849E*00 1.1225E+0O 1.1613E+00 l.2033E*00 1.2369E*00 1.1370E-00 8.3733E-01 

28 9 . 61 71E-01 1 . 0057E* 00 1.0454E*00 1.0829E*00 I.1196E*00 1.1580E*00 1.2022E^OO 1.2326E*00 1.1406E*00 8.3I02E-01 

27 9.5953E-01 1.0O42E^OO 1.0436E^00 I.0812E+00 1.1172E+00 1.1556E*00 1.2011E*00 1.2281E*C0 1.1446E*00 8.2743E-01 

26 9.5709E-01 l.OO24E^O0 1.0416E*00 1.0793E*00 1.1146E+00 1.1525E»00 1.1982E*00 1.2237E*Q0 1.1450E*00 8.2699E-01 

25 9.5428E-01 l.OOOlE^OO 1.0392E*00 1.0769E*00 1.1115E+00 1.1494E*»00 1.1937E*00 1.2206E*00 1.1436E+00 8.2859E-01 

24 9.5156E-01 9.9764E-01 1.0364E+00 1.0743E>00 1.1091E*00 1.1478E+00 1.1895E^OO 1.2195E*00 1.1389E*00 8.3296E-01 

23 9.5066E-01 9.9696E-01 1.0353E*00 1.5728E^0O l-1069E*00 1.1461E^00 1.1848E*00 1.2177E*00 1.1333E-00 8.3918E-01 

22 9.4991E-01 9.9675E-01 l.0350E»00 1.0725E*00 1.1061E*00 1.1451E^00 1.1803E*00 1.2134E^OO 1.1245E+00 8.4701E-01 

21 9.4913E-01 9.9606E-01 1.0343E+00 1.0721E^OO 1.1062E*00 1.1457E*00 1.1790E^OO 1.2097E*00 1.1197E*00 8.S46SE-01 

20 9.4914E-01 9 . 9615E- 01 1.0343E+00 l.O722E^00 1.1066E*00 1.1462E+00 1.1776E*00 1.2057E*00 1.1I54E*00 8.6150E-O1 

19 9.4984E-01 9.9709E-01 1.0354E*00 1.0733E^0O 1.1078E*00 1.1471E*00 1.1767E*00 1.20«dE*00 1.1122E+00 8.6662E-01 

18 9.5163E-0I 9 . 9925E-01 1.O33CE+O0 1.0763E^00 1.1106E+00 1.1494E^00 1.1771E*00 1.1974E+00 1.1100E+00 8-6607E-01 

17 9.531 (JE-01 1 . 0010E*00 i.0402E*00 1.0793E*00 1.U45E-00 1.1530E*00 1.1788E*00 l.I957E*00 1.1103E*00 8.5014E-01 

16 9.5014E-01 9 . 9779E- 01 1.0369E*00 1.0761E*00 1.1116E-00 1.1501E*00 1.1743E-00 1.1870E*00 1.1038E*00 8.0465E-01 

15 9 -4295E-01 9.8973E-01 1.0274E*00 1.0652E*00 1.0990E*00 1.1357E*00 1.1572E+00 1.1627E^00 1.0640E+00 7.2041E-01 

14 9.3486E-01 9.8143E-01 1.0171E*00 1.0523E*00 1.0816E*00 1.1142E*00 1.1293E*00 l.I270E^C0 9.6986E-01 6.08C5E-01 

13 9.2250E-01 9.6609E-01 9.9651E-01 1.0265E+00 l.O506E^OO 1.0799E*00 1.0915E*00 1.0827E*00 8.4494E-01 4.9698E-01 

12 8.9874E-01 9.3340E-01 9.5668E-01 9.8190E-01 1.0039E*00 1.0321E+00 1.0445E*00 1.0310E*00 7.2279E-01 4.0852E-0I 

11 8.5953E- 01 8.8459E- 01 9.0250E-01 9.2491E-01 9.4661E-01 9.7875E-01 9.9106E-01 9.6811E-01 6.1995E-01 3.4508E-01 

10 8- 0861E-01 8.2624E- 01 8.4181E-01 8.6202E-01 8.8371E-01 9.2424E-01 9.3656E-01 8.9351E-01 5.4056E-OI 2-9778E-01 

9 7.5152E-01 7.6607E-01 7.8240E-01 8.0063E-01 8.2208E-O1 8.7069E‘01 8.8303E-01 8.1665E-01 4.7729E-01 2.5710E-01 
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8 

6 . 9487E- 0 1 

7 . 1 077E-01 

7.2898E-01 

7.4564E-01 

7.6661E-01 

7 

6 . 4347E- 0 1 

6.6336E-01 

6.6293E-01 

6.9855E-01 

7 . 1872E- 0 1 

6 

5 . 9832E- 0 1 

6 . 2192E-01 

6.4176E-01 

6.5656E-01 

6.7571E-01 

5 

5.5569E-01 

5. 7964E-01 

5 . 9886E-01 

6.1272E-01 

6 . 3061E- 0 1 

4 

5. 0663E- 01 

5.2756E-01 

5.4538E-01 

5. 5789E- 01 

5 . 7406E- 01 

3 

4. 3477E-01 

4.5153E-01 

4.6683E-01 

4.7713E-01 

4 . 9064E- 01 

2 

2.9507E-01 

3. 0507E-01 

3. 1506E-01 

3.2100E-01 

3 . 2959E- 0 1 

1 

0 . OOOOE 4 00 

0. OOOOE^OO 

0. 0O00E*OO 

0. OOOOE* 00 

0 . OOOOE* 00 

1 x i i 

s <50 

42 

44 

46 

48 

let* 

51 

0. OOOOE+OO 

0. OOOOE*DO 

0. OOOOE+OO 

0 . OOOOE+OO 

0. OOOOE+OO 

50 

7 . 0352E- 03 

4. 3272E-03 

4.4874E-03 

3. 9653E- 03 

3.3182E-03 

49 

3.5135E-02 

2 . 2942E-02 

2 . 2821E- 02 

2.1054E-02 

1 .8420E-02 

48 

8.4902E-02 

6.2613E-02 

6 . 0396E- 02 

5. 6663E-02 

5 - 0542E- 02 

47 

1.4184E-01 

1 . 1607E-01 

1 . 0994E- 01 

1.0295E-01 

9.2919E-02 

46 

1 .9407E-01 

1 . 6960E- 0 1 

1 . 5893E-01 

1 . 4775E-01 

1 . 3429E- 01 

45 

2.3954E-01 

2. 1744E-01 

2 . 0277E- 01 

1.6740E-Q1 

\ . 7069E- 01 

44 

2.7975E-01 

2.5955E- 0 1 

2.417 OE-Ol 

2. 2272E-01 

2.0284E-01 

43 

3.1641E-01 

2.9714E-01 

2.7683E-01 

2.5507E-01 

2.3217E-01 

42 

3.51 13E-01 

3. 3166E- 0 1 

3.091 4E- 01 

2.8549E-01 

2.5985E-01 

41 

3.8442E-01 

3. 6450E- 0 1 

3.3982E-01 

3. 1 487E-01 

2.8683E-01 

40 

4.2046E-01 

3. 9638E- 0 1 

3.6927E-01 

3. 4401E-01 

3.1 394E-01 

39 

4 . 6657E- 01 

4.3120E-01 

4. 0062E-01 

3.7363E-01 

3 . 4158E- 0 1 

38 

5.2778E-01 

6.7638E-01 

4 . 3995E- 0 1 

4.0742E-01 

3. 7256E- 01 

37 

6. 0089E-01 

5. 3S50E-01 

4 . 9268E- 0 1 

4. 5189E- 01 

4.1271E-01 

36 

6 . 7541E-01 

6 . 1515E- 01 

5.5947E-01 

5. 1 151E-01 

4 . 6751E-01 

35 

7.4099E-01 

6 . 8994E-01 

6 . 3260E-01 

5.8320E-01 

5.3683E-01 

34 

7.8919E-01 

7 . 4604E-01 

6 . 9624E-0 1 

6.5226E-01 

6.0928E-01 

33 

8.I431E-01 

7 . 7654E-01 

7.3731E-01 

7. 0045E-01 

6 . 6518E- 01 

32 

8.2142E-01 

7 . 8652E-01 

7.5497E-01 

7.2286E-01 

6.9404E-01 

31 

8.2056E-01 

7 . 87 09E-01 

7.5833E-01 

7. 2878E-01 

7 . 0261E- 01 

30 

8.1712E-01 

7.8486E-01 

7.5637E-01 

7.2804E-01 

7.0239E-01 

29 

8.1 375E- 0 1 

7.8237E-01 

7 . 5343E- 0 1 

7 . 2580E-01 

7 . 0031E- 0 1 

28 

8.1075E-01 

7 . 8013E-01 

7.5093E-01 

7.2367E-01 

6 . 9839E- 01 

27 

8. 0881E- 01 

7 . 7&62E-01 

7 . 4933E- 01 

7.2228E-01 

6.9725E-01 

26 

8.0844E-01 

7 . 7841E-01 

7-4927E-01 

7. 2234E-01 

6.9752E-01 

25 

8.0936E-01 

7 . 7937E-01 

7.5053E-01 

7.2373E-01 

6.9910E-01 

24 

8.1115E-01 

7. 8113E-01 

7 . 5273E- 01 

7 . 2596E-01 

7.O129E-01 

23 

8. 1353E-01 

7 . 8350E-01 

7.5545E-01 

7.2S34E-01 

7.0339E-01 

22 

8. 1605E-01 

7 . 8547E-01 

7 . 5793E- 01 

7.3035E-01 

7 . 0492E- 01 

21- 

8 . 1756E- 01 

7 . 861 9E-01 

7 . 5959E- 01 

7 . 3086E- 01 

7.05S1E-01 

20 

8.1778E-01 

7.8542E-01 

7.5902E-01 

7 . 2782E- 01 

7.0247E-01 

19 

8 . 1648E- 01 

7.8246E-01 

7.5030E-01 

7 . 1509E- 01 

6.8809E-01 

18 

8.1O97E-01 

7 . 6834E-01 

7 . 2034E-01 

6.8031E-01 

6.4526E-01 

17 

7 . 9035E- 01 

7.2354E-0I 

6.5737E-01 

6.11 40E-01 

5 . 6772E- 01 

16 

7.3003E-01 

6 . 3619E-01 

5 . 6485E-01 

5. 1921E-01 

4.7666E-01 

15 

6 . 2054E- 01 

5. 2759E-01 

4 . 6903E- 01 

4 . 3426E-01 

4 . 0503E- 01 

14 

5. 0197E-01 

4 . 3325E-01 

3.9368E-01 

3.7143E-01 

3.5258E-01 

13 

4. 0775E- 01 

3. 6624E-01 

S.4071E-01 

3.2767E-01 

3. 1488E- 01 

12 

3. 4094E- 01 

3. 2072E-01 

3- 0169E- 01 

2.9424E-01 

2.8S62E-01 

11 

2.9344E-01 

2.8499E-01 

2.6815E-01 

2.6417E-01 

2.5466E-01 

10 

2.5700E-01 

2. 51 94E-01 

2 - 3643E- 01 

2.3485E-01 

2.2730E-01 

9 

2.2686E-01 

2. 1983E-01 

2 • 0622E- 01 

2.0634E-01 

2. 0073E- 01 

6 

1 .9858E-01 

1.8817E-01 

1 .7662E-01 

1 . 7758E-01 

1.7396E-01 

7 

1 .6845E-01 

1 . 5603E-01 

1 .4663E-01 

1.4780E-01 

1.4596E-01 

6 

1 .351 OE-Ol 

1 . 2219E-01 

1 .1488E-01 

1 . 1598E-01 

1.1539E-01 

5 

9.8216E-02 

8. 4896E- 02 

7.9764E-02 

8. 1221E-02 

8.1 047E- 02 

4 

5.6864E-02 

4.5472E-02 

4.2702E-O2 

4.4534E-02 

4.4375E-02 

3 

1.8027E-02 

1 . 3852E-02 

1 . 2893E- 02 

1 . 4963E-02 

1 . 4970E-02 

2 

1 .6325E-03 

2.1084E-04 

1 .5458E-05 

1 . 2333E-05 

1 . 4309E-03 

1 

0. OOOOE-OO 

0 . OOOOE* 0 0 

0.0 0 0 0E+ 0 0 

0 . OOOQE+OQ 

0 . OOOOE* 00 

1x1 

- 60 

62 

64 

66 

68 

lc ta 
51 

O.OOOOE+OO 

0. OOOOE^OO 

0 . C000E*O0 

0. OOOQE+8Q 

0 . OOOOE* 00 

50 

8. 1840E- 04 

1 . 1 972E-03 

1 .2558E-02 

2. 7085E-02 

4.0362E-02 

49 

7.5853E-03 

8. 0339E-03 

3.2478E-02 

6 . 0441 E- 02 

8.0608E-02 

48 

2. 4356E- 02 

2.3353E-C2 

5.5734E-02 

8.7335E-02 

1.0805E-01 

47 

4.8712E-02 

4 . 5263E- 02 

7 . 7532E- 02 

1.0653E-01 

1 . 2630E- 01 

46 

7 . 4289E- 02 

6.8697E-02 

9 . 6322E- 02 

1.2132E-01 

1.4017E-01 

45 

9.7625E-02 

9.0542E-02 

1.I278E-01 

1 . 3399E-01 

1 .5206E-01 

44 

1 . 1856E- 01 

1 . 1046E-01 

1 . 2787E- 01 

1 . 4583E-01 

1 . 6320E- 0 1 

43 

X . 3779E- 01 

1 . 2906E- 0 1 

1 . 4237E- 0 1 

1.5764E-01 

1 .7433E-01 

42 

1.5605E-01 

1.4693E-01 

1.5694E-01 

1 . 6998E-01 

1.8594E-01 

41 

1 . 7402E- 01 

1.6472E-01 

1 .721 IE- 01 

1 -8326E-01 

1 . 9836E- OT 

40 

1 . 9238E- 01 

1.8306E-01 

1.8834E-01 

1 . 9775E-01 

2. 1 181E- 01 

39 

2. 1 173E- 01 

2. 026 IE-01 

2 - 0597E- 01 

2. 1366E-0I 

2.2650E-01 

38 

2.3264E-01 

2.2406E-01 

2 . 2525E- 01 

2.31 14E-01 

2.4259E-Q1 

37 

2. 5520E- 01 

2.4808E-01 

2.4630E-01 

2.5031E-01 

2. 6021E01 

36 

2.8135E-01 

2.7530E-01 

2.6926E-01 

2.7121E-01 

2 . 7940E- 0 1 

35 

3.1577E-01 

3. 0651E-01 

2 . 9656E- 01 

2.9601E-01 

3. 0208E- 01 

34 

3. 6346E- 01 

3. 4587E-01 

3.3292E-01 

3. 2906E-01 

3 . 3224E- 01 

33 

4 . 2515E- 01 

3. 9865E-01 

3.8143E-01 

3. 7341E-01 

3. 7 28 OE-Ol 

32 

4.9159E-01 

4 . 61 02E-01 

4 . 3936E- 01 

4. 2697E- Oi 

4.22I6E-01 

31 

5. 4378E- 01 

5. 1651E-01 

4.9451E-01 

4.7987E-0I 

4.7197E-01 

30 

5. 7041E- 01 

5. 4956E-01 

5. 3123E-01 

5. 1789E-01 

5 . 0958E- 01 

29 

5. 7773E- 01 

5. 6094E-01 

5. 4633E-01 

5.3547E-01 

5.2841E-01 

28 

5 . 7749E- 01 

5. 6185E-01 

5.4691E-01 

5.3944E-01 

5 . 3329E- 01 

27 

5.7676E-01 

5.6U2E-01 

5.4848E-01 

5 . 3922E- 01 

5.3312E-01 

26 

5.7759E-01 

5.6198E-01 

5 . 4933E- 01 

5.3995E-01 

5.3363E-01 

25 

5.801 3E- 01 

5.6466E-01 

5.5213E-01 

5.4275E-dt 

5 . S63IE- 0 1 

24 

5. 8357E- 01 

5. 6837E-01 

5.5601E-01 

5.4670E-01 

5.4017E-01 

23 

5.8704E-01 

5. 7191E-01 

5.5933E-01 

5.4955E-01 

5 . 4229E-01 

22 

5.8840E-01 

5.7203E-01 

5 . 5775E-01 

5.4597E-01 

5 . 3656E-01 

21 

5.8059E-01 

5. 6 050E-01 

5.4252E-01 

5. 2729E- 01 

5 . 1492E- 01 

20 

5.5249E-01 

5.2765E-01 

5. 0601E-01 

4.8832E-01 

4 . 7459E- 01 

19 

5. 0026E-01 

4.7404E-01 

4.5243E-01 

4.3593E-01 

4 . 2406E-01 

18 

4.3636E-01 

4. 1424E-01 

3 . 9677E-01 

3.8434E-01 

3 . 7622E-01 

17 

3.7798E-01 

3.6262E-01 

3.5061E-01 

3.4271E-01 

3 . 3834E-01 

16 

3.3320E-01 

3.2405E-01 

3. 1646E-01 

3. 1209E-01 

3. 1059E-01 

15 

3.011 OE-Ol 

2 . 9566E-01 

2 . 9094E-01 

2.8894E-01 

2. 8943E-01 

14 

2.7667E-01 

2.7216E-01 

2.6940E-01 

2. 6913E-01 

2. 71 13E-01 

13 

2.5537E-01 

2.5082E-01 

2.4963E-01 

2.5085E-01 

2.5414E-01 

12 

2.3561E-01 

2. 3151E-01 

2.3161E-01 

2.341 IE-01 

2. 3852E-01 

11 

2.1761E-01 

2.1402E-01 

2.1516E-01 

2.1875E-01 

2. 2408E-01 


o . 1842E-01 8-3Cejt-0i / <4. t'fsat-ui ^.i06oc*vi 
7 . 6754E-01 7.7969E-01 6.8S87E-01 3.6147E-01 1.8172E-01 
7 . 1781E-01 7.2907E-01 6.3524E-01 3.0379E-01 1.4439E-01 
6 . 6662E-01 6.7591E-01 5.7839E-01 2.4459E-01 1.0459E-01 
6 . 0565E-01 6.1212E-01 5.0971E-01 1.7915E-01 5.9964E-02 
S. 1675E-01 5. 1987E-01 4.1366E-01 1.0360E-01 1.3543E-02 
3. 4681E-01 3.4569E-01 2-49?2E-01 3..4010E-02 1.2089E-02 
O.OOOCE+OO O.OOOOE-OO O.OOOOE^OO O.OOOOE*OC 0.O000E*0O 

50 52 54 56 58 

0 . OOOOE+OO 0 . 00 0 OE + OO O.OOOOE^OO O.OOOOE^OO O.OOOOE^OO 
2.5S16E-03 1.61D3E-03 1.4918E-03 9.3575E-04 7.5006E-04 
1 . 6063E- 02 1 . 3835E-02 1.2186E-02 9.9996E-03 8.5432E-03 
4.5355E-02 4.0640E-02 3.5982E-02 3.0951E-02 2.7032E-02 
8. 3868E-02 7.5454E-02 6.7391E-02 5.9492E-02 5.2826E-02 
1 . 2139E-01 1.0905E-01 9.8186E-02 8.7966E-02 7.917SE-02 
i . 5445E-01 1.3863E-01 1.2570E-01 1.1345E-01 1.0303E-01 
1.8374E-01 1 . 6492E-01 1.5044E-01 1.5621E-01 1.2450E-01 
2. 1 054E-01 1.8923E-01 1.7342E-01 1.572IE-01 1.4435E-01 
2.3596E-01 2.1282E-01 1.9555E-01 1.7735E-01 1.6338E-01 
2.6097E-01 2. 3682E- 01 2.1768E-01 1.9746E-01 1.8233E-01 
2.8624E-01 2. 621 2E- 01 2.4054E-01 2.1831E-01 2.0191E-01 
3. 1 197E-01 2.8915E-01 2.6478E-01 2.4063E-01 2.2278E-01 
3. 4020E-01 3. 1827E-01 2.9067E-01 2.6496E-01 2.4551E-01 
3.761 OE-Ol 3. 51 61E- 01 3.2047E-01 2.9186E-D1 2.7026E-01 
4.2594E-01 3. 9369E-01 3.5863E-01 3.2485E-01 2.9949E-01 
4. 9211E-01 4. 4996E-01 4.1010E-01 3.7037E-01 3.3876E-01 
5. 6626E-01 5. 2069E-01 4.7547E-01 4.3190E-01 3.9316E-01 
6.2946E-01 5.9067E-01 5.4644E-01 5.0367E-01 4.6118E-01 
6. 6642E-01 6.3744E-01 6.0232E-01 5.6666E-01 5.2827E-01 
6 . 7919E-01 6.5612E-01 6.3056E-01 6.0381E-01 5.7404E-01 
6.7976E-01 6.5860E-01 6.3799E-01 6.1614E-01 5.9334E-01 
6 . 7758E-01 6 . 5663E- 01 6.3732E-01 6.1690E-01 5.9669E-01 
6 . 7569E-01 6.5476E-01 6.3S56E-01 6.1533E-01 5.9576E-01 
6.7469E-01 6.5392E-01 6.3465E-01 6.1456E-01 5.9497E-0I 
6.75UE-01 6.5452E-01 6.3S26E-01 6.1531E-01 5.9573E-01 
6 . 7688E- 01 6 . 5651E-01 6.3734E-01 6.17S9E-01 5.98UE-01 
6.7924E-01 6 . 591 6E-01 6.4022E-01 6.2070E-01 6.0134E-01 
6. 816 OE -01 6. 6188E-01 6.4318E-01 6.239CE-01 6.0465E-01 
6.8360E-01 6.6442E-01 6.4574E-01 6.2637E-01 6.0664E-01 
6.8461E-01 6 . 6549E-01 6.4538E-01 6.2413E-01 6.0172E-01 
6 . 8063E- 01 6.5844E-01 6.3346E-01 6.0660E-01 5.7852E-01 
6.5962E-01 6 . 2870E-01 5.9579E-01 5.6183E-01 5.2894E-01 
6 . 0558E-01 5. 6636E- 01 5.2924E-01 4.9396E-01 4.6255E-01 
5. 2375E-01 4.8627E-01 4.5343E-01 4.2485E-01 3.9945E-01 
4.4262E-01 4. 1395E-01 3.8973E-01 3.7059E-01 3.5033E-01 
3.8022E-01 3.6014E-01 3.4387E-01 3.3220E-01 3.1475E-01 
3. 3633E-01 3.2240E-01 3.1100E-01 3.0316E-01 2.8757E-01 
3.0358E-01 2. 9S58E-01 2.8401E-01 2.7709E-01 2.6395E-01 
2.7524E-01 2.6787E-01 2.5917E-01 2.5141E-01 2.4199E-01 
2.4848E-01 2.4305E-01 2.3576E-01 2.2651E-01 2.2183E-01 
2.2304E-01 2.1903E-01 2.1293E-01 2.0185E-01 2.0316E-01 
1 . 9794E-01 1 . 9482E-01 1.S978E-01 1.7714E-Q1 1.85S7E-01 
1.7219E-01 1.6949E-01 1.6535E-01 1.5207E-01 1.6843E-01 
1 . 4460E- 01 1 . 4195E-01 1.3860E-01 1.2619E-01 1.5099E-01 
1 .1390E-01 1 . 1 1 13E-01 1.0845E-01 9.8707E-02 1.3219E-01 
7.9145E-02 7 . 6488E- 02 7.4381E-02 6.9489E-02 1.1060E-01 
4.2876^-02 4. 1 244E-02 3.9629E-02 4.0888E-02 8.4116E-02 
1.4698E-02 1 . 4584E- 02 1.3619E-02 1.8120E-02 5.1924E-02 
1.8499E-03 2. 2877E-03 1.9978E-03 4.7820E-03 2.O274E-02 
0.6000E+00 0 . OOOOE* 00 0. OOOOE+OO 0 . 0 0 0 0E+ 0 0 0 . ooooe*oo 

70 72 74 76 78 

0. OOOOE* 0 0 0 . OOOOE* 0 0 0. OOOOE+OO 0 . 0 0 OOE + OO O.OOOOE*OD 
5.2853E-02 6.27S7E-02 7.0280E-02 7.5227E-02 8.0026E-02 
9 . 7688E- 02 1.1 057E-01 1.2017E-01 1.2654E-01 1.3203E-01 
1.2563E-01 1.3889E-01 1.4888E-01 1.5563E-01 1.6096E-01 
1 . 4388E-01 1.5733E-01 1.6760E-01 1.7467E-01 1.7989E-01 
1.5782E-C1 1.7149E-01 1.8207E-01 1.8945E-01 1.9466E-01 
1.6981E-01 1.6371E-01 1.9459E-01 2.0226E-01 2.0754E-01 
1.6102E-01 1 .951 0E-01 2.0626E-01 2.1419E-01 2.1960E-01 
1 . 9213E-01 2. 0630E-01 2.1766E-01 2.2578E-01 2.3139E-01 
2.0354E-01 2. 1769E-01 2.2914E-01 2.3736E-01 2.4320E-01 
2.1553E-01 2.2952E-01 2.4093E-01 2.4914E-01 2.5523E-01 
2. 2832E-01 2 . 4203E- Oi 2.5322E-01 2.6130E-01 2.6763E-01 
2.4210E-01 2 .5541E- 01 2.6619E-01 2.7400E-01 2.8054E-01 
2.5705E-01 2.6983E-01 2.8002E-01 2.8737E-01 2.9410E-01 
2.7329E-01 2.8543E-01 2.9481E-01 3.0155E-01 3.0851E-01 
2 . 9092E-01 3.022IE-01 3.1060E-01 3.1657E-01 3.2357E-01 
3.11 75E-01 3.2163E-01 3.2884E-01 3-3389E-01 3.4001E-01 
3. 3946E-01 3.4698E-01 3.5257E-01 3.5643E-01 3.6049E-01 
3.7672E-01 3.81 07E-01 3.8431E-01 3.8650E-01 3.8796E-01 
4.2221E-01 4.2316E-01 4.2363E-01 4.2368E-01 4.2277E-01 
4. 6870E-01 4.6684E-01 4.6507E-01 4.6322E-01 4.6060E-01 
5. 0501E-01 5. 0194E-01 4.9928E-01 4.9668E-01 4.9355E-01 
5.2420E-01 5.2144E-01 5.1916E-01 5.1700E-01 S.1452E-01 
5. 2961E-01 5. 2747E-01 5.2580E-01 5.2437E-01 5.2284E-01 
5. 2942E-01 5. 2752E-01 5.2599E-01 5.2485E-01 5.2385E-01 
5-2966E-01 5. 2761E-01 5.2595E-01 5.2474E-01 5.2377E-01 
5.3214E-01 5.2974E-01 S.2792E-01 5.2657E-01 5.2S48E-01 
5. 3572E-01 5.3269E-01 5.3044E-01 5.2867E-01 5.2720E-01 
5.3689E-01 5. 3261E-01 5.2923E-01 5.2643E-01 5.2398E-01 
5. 2907E-01 5.2279E-01 5.1768E-01 5.1347E-01 5.0981E-01 
5.0512E-01 4. 9703E-01 4.9069E-01 4.8575E-01 4.8176E-01 
4.6441E-01 4.5641E-01 4.5082E-01 4.4695E-01 4.4425E-01 
4. 1617E-01 4.1 076E-0 1 4.0790E-01 4.0658E-01 4.0626E-01 
3.7172E-01 3.7024E-01 3.7079E-01 3.7229E-01 3.7437E-01 
3. 3686E-01 3.3936E-01 3.4267E-01 3.4631E-01 3.5020E-01 
3.1140E-01 3.1669E-01 3.2170E-01 3.2669E-01 3.3174E-Q1 
2.9199E-01 2. 981 OE-Ol 3.0414E-01 3.1002E-01 3.1586E-01 
2. 7512E-01 2.81 1 IE-01 2.8789E-01 2.9448E-01 3.0068E-01 
2.5933E-01 2.6547E-01 2.7281E-01 2.7991E-01 2.8668E-01 
2. 4469E-01 2.51 02E-01 2.5874E-01 2.6622E-01 2.7317E-01 
2.3I02E-01 2.3755E-01 2.4551E-01 2.5324E-01 2.6022E-01 
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10 

2.011 IE-01 

1 . 981 1 E— 0 1 

2.0009E-01 

2. 0457E- 01 

2. 1 064E-0I 

2.1813E-01 

2.2484E-01 

2-3293E-01 

2. 4C79E-0 1 

2 . 4771E-01 

9 

I.8582E-01 

1.5346E-01 

1.8613E-01 

1.9132E-01 

1 . 9796E-01 

2. 0583E-O1 

2.1267E-01 

2. 2078E- 0 1 

2.2666E-01 

2.3547E-01 

8 

1.7127E-01 

1 .6961E-01 

1.7289E-01 

1 . 7668E- 01 

1 . 8577E-01 

1.9386E-01 

2. 0077E-01 

2. 0882E-0 1 

2. 1663E-01 

2. 2331E-01 

7 

1 .5680E-01 

1 .5593E-01 

1 .5981E-01 

1.6616E-01 

1 . 7363E- 01 

1 . 6163E-0I 

1 .S877E-01 

1 . 9671E-01 

2. 0436E-0 1 

2- 1 093E-01 

6 

1 .4145E-01 

1 .4152E-01 

1.4607E-01 

1.5300E-01 

1.6084E-01 

1.691 IE— 0 1 

1.7605E-01 

1.8384E-01 

1.9I29E-01 

1 . 9779E- 01 

5 

1.2377E-01 

1 .2497E-01 

1 .3033E-01 

1.3796E-01 

1.461 9E-01 

1 .5453E-01 

1 .6147E-01 

1.691 IE- 01 

1.7634E-01 

1.8281E-01 

4 

1 .0U5E-01 

1 .0376E-01' 

1 . 1 014E-01 

1 . 1862E-01 

1 . 2736E-01 

1 . 3579E-01 

1.4276E-01 

1.5026E-01 

1.5724E-01 

1 . 6375E-01 

3 

6 . 9602E-02 

7 . 3493E-02 

6.0669E-02 

8-9652E-02 

9 . 8991E- 02 

1 . 0742E-01 

1 .1436E-01 

1 -2166E-01 

1 . 2832E- 01 

1 .3489E-01 

2 

3. 0503E-02 

3 . 3648E-02 

3 . 9 D62E-02 

4 . 6165E- 02 

5.3451E-02 

6. 0126E-02 

6.5697E-02 

7 . 1545E- 02 

7.6625E-02 

8.2454E-02 

l 

0 . 000 OE* 00 

0 . 0000E* 00 

0 . OOOOE+OO 

0.000 OE* 00 

0 . 0000E+00 

0 . OOOOE+OO 

0 . OOCCE* 00 

0. OOOOE-OO 

0 . OOOOE+ 00 

0 . 00 OOE+OO 

ixi 

= 80 

81 









leta 











SI 

0 . 000 OE* 00 

0. 0000E+00 









50 

9 . 1742E-02 

9.1742E-02 









49 

1 . 4587E-01 

I .45B7E-01 









48 

1.7481E-01 

1 .7481E-01 









47 

1 . 9362E- 01 

1 .9362E-01 









46 

2. 0B18E-01 

2 . 0818E-01 









45 

2. 2072E- 0 1 

2.2072E-01 









44 

2- 3226E- 01 

2 . 3226E-01 









43 

2.4333E-01 

2. 4333E-01 









42 

2.5423E-01 

2.5423E-01 









41 

2.6523E-01 

2. 6523E- 01 









40 

2.765SE-01 

2.7655E-01 









39 

2.6841E-01 

2.8841E-01 









36 

3.01 00E-O1 

3.01 00E-01 









37 

3.1447E-01 

3. 1 447E-01 









36 

3.2888E-01 

3.288BE-01 









35 

3.4450E-01 

3- 4450E- 01 









34 

3.6347E-01 

3. 6347E- 01 









33 

3.8893E-01 

3. 8893E- 01 









32 

4. 2151E-01 

4 , 2151E-* 01 









31 

4.5763E-01 

4.5763E-Q1 









30 

4.9005E-01 

4.9005E-01 









29 

5-1166E-01 

5.11 68E- 01 









28 

5.21 O4E-01 

5-2104E-01 









27 

5.227SE-01 

5.2273E-01 









26 

5.2279E-01 

5.2279E-01 









25 

5.2437E-01 

5.2437E-01 









24 

5. 2567E-01 

5 . 2567E- 0 1 









23 

5.2148E-01 

5.2148E-01 









22 

5. 0622E-01 

5 . 0622E- 01 









21 

4.779SE-01 

4. 7798E- 01 









20 

4. 4172E-01 

4.4172E-01 









19 

4. 0580E-01 

4, 0560E- 01 









18 

3.7591E-01 

3. 7591E- 01 









17 

3.5330E-01 

3. 5330E- 01 









16 

3.3605E-01 

3.3605E-01 









15 

3-2124E-01 

3.21 24E-Q1 









14 

3.0738E-Q1 

3.0738E-01 









13 

2.9438E-01 

2.9438E-01 









12 

2.8211E-01 

2.821 IE-01 









11 

2.7039E-01 

2.7039E-01 









10 

2.5901E-01 

2.5901E- 01 









9 

2.4775E-01 

2.4775E-01 









8 

2.3636E-01 

2. 3636E-01 









7 

2.2452E-01 

2.2452E-01 









6 

2. 1171E-01 

2. 1 1 71E-01 









5 

1 . 9689E- 01 

1.9689E-01 









4 

1 . 7787E- 01 

1 . 7787E-01 









3 

1.4884E-01 

1 . 4884E-01 









2 

9.4166E-02 

9.4166E-02 









1 

0. 0000E+00 

0 . 0000E+00 










KMtiM Not yet conversed. 


Note that this calculation has not reached the level of convergence specified in the input 
(AQ,„„ < 10 -6 ). However, close examination of several parameters near the end of the calculation indicates 
that the solution is no longer changing appreciably with time, but oscillates slightly about some mean steady 
level. This type of result appears to be fairly common, especially for flows with shock waves. The reason 
is not entirely clear, but may be related to inadequate mesh resolution, discontinuities in metric information, 
etc. For this particular case, the cause may also be inherent unsteadiness in the flow. The experimental 
data for this duct show a self- sustained oscillation of the normal shock at Mach numbers greater than about 
1.3 (Bogar, Sajben, and Kroutil, 1983). 

The three runs for this case required 460.6, 458.2, and 460.5 seconds of CPU time, respectively, for ex- 
ecution. About 161 additional seconds were required in each run to up-dimension and compile the code. 
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Computed Results 


The computed flow field is shown in Figure 9.6 in the form of constant Mach number contours. 
Contours are plotted at Mach numbers ranging from 0.0 to 1.2 in increments of 0.1. 



Figure 9.6 - Computed Mach number contours for transonic diffuser flow. 


The flow enters the duct at about M = 0.46, accelerates to just under M~ 1.3 slightly downstream of 
the throat, shocks down to about M = 0.78, then decelerates and leaves the duct at about M = 0.51. The 
normal shock in the throat region and the growing boundary layers in the diverging section can be seen 
clearly. Because this is a shock capturing analysis, the normal shock is smeared in the streamwise direction. 

The computed distribution of the static pressure ratio along the top and bottom walls is compared with 
experimental data (Hsieh, Wardlaw, Collins, and Coakley, 1987) in Figure 9.7. The static pressure ratio is 
here defined as pl(p T )o, where (p T ) 0 is the inlet core total pressure. 



Figure 9.7 - Computed and experimental static pressure distribution for transonic diffuser flow. 

The computed results generally agree well with the experimental data, including the jump conditions 
across the normal shock. The predicted shock position, however, is slightly downstream of the exper- 
imentally measured position. The pressure change, of course, is also smeared over a finite distance. There 
is also some disagreement between analysis and experiment along the top wall near the inlet. This may be 
due to rapid changes in the wall contour in this region without sufficient mesh resolution. 
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9,4 TURBULENT FLOW OVER A FLAT PLATE 


Problem Description 

In this test case, turbulent flow over a flat plate at zero pressure gradient with a freestream Mach number 
of 0.3 was computed using first the Baldwin-Lomax turbulence model and then the Chien k-z turbulence 
model (restarted from the converged Baldwin-Lomax solution). The computational domain ranges from 
Re x = 10,000 to Re x = 10 x 10 6 . Established experimental data for this flow are available for the purpose 
of comparison (Klebanoff, 1953; Cole and Hirst, 1968). 

Reference Conditions 

For convenience, the reference Reynolds number Re r was chosen to be 1 x 10 6 . To simulate 
incompressible flows, a freestream (and reference) Mach number M r of 0.3 was selected. Assuming standard 
sea level values of temperature, kinematic viscosity, and pressure, the reference velocity m and the reference 
length L r were calculated to be 334.99 ft/sec and 0.477631 ft, respectively. 

Computational Coordinates 

The x* coordinate for the flat plate under consideration runs from 0.0 1L, to 10/^. Grid points are evenly 
distributed in the x direction. The Cartesian coordinates at the plate (lower boundary) are simply y = 0 for 
all x. For the upper boundary, the y coordinate increases with the distance along the plate to keep ap- 
proximately the same number of grid points within the boundary layer. To compute the y coordinates, the 
turbulent boundary layer thickness was first estimated from the power law formula: 

5 0.38x 


Approximately 90 per cent of the grid points are placed inside the turbulent boundary layer, and the rest 
of the grid points are located in the freestream region. In order to adequately resolve the near wall region, 
within the boundary layer the grid points in the y direction are clustered near the plate surface using Roberts 
transformation, as follows: 


y = 



6 


The packing parameter /? was set equal to 1.001. Outside the boundary layer the points are evenly distrib- 
uted in the y direction. 

The coordinate system was generated using a separate program and stored in a Fortran unformatted file 
to be read by Proteus. The Cray runstream used to generate this file is listed below. Note that the Fortran 
program is included in the JCL as a UNICOS "here document". 


# 

QSUB 

-1M l.OmW -IT 60 

# 

QSUB 

-mb -me 

# 

QSUB 

-o temp. out 

# 

QSUB 

-eo 

# 

QSUB 

-r fplateO 

ft QSUB 
set -x 

-s /bin/sh 


ja 

touch fcoords 
In fcoords fort. 7 
cat > coord. f << EOF 
program coord 
c 

c Purpose: This program generates the x-y coordinate system for 
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c 

c 

c 

c 

c 

C‘ 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


turbulent flow over a flat plate. The grid increases in 
height to keep about the same number of poihts inside 
the boundary layer. Within the boundary layer, grid 
points are packed near the plate using Roberts formula. 


Fortran variable definitions: 


beta 
delb 
nl , n2 
n3 

rer 

rex 

xmin, xmax 


packing amount parameter in Roberts formula 

boundary layer thickness 

number of points in x and y directions 

number of points in y direction in boundary 

layer 

reference Reynolds number in Proteus calculation 
Reynolds number based on x 
minimum and maximum values of x 


Output computed: 

x(i,j) - x coordinates at grid points 
y(i,j) - y coordinates at grid points 


parameter (nxmax=81, nymax=51) 
dimension x(nxmax,nymax) ,y (nxmax , nymax) 
data xmin,xmax /Q. 01, 10.0/ 
data nl,n2 /81,51/ 
data rer /l.e6/ 


Define grid packing parameters 


beta = 1 . 001 

n3 = n2 “ int(n2/10) 

deta = 1.0/(n3-l) 

dx = (xmax-xmin)/f loat(nl-l ) 

--Get x increment, loop in x direction 

do 30 il = l,nl 

xi = xmin + f loat( il-l)*dx 


c Compute y coordinates inside boundary layer 

c 

rex = xi*rer 

delb = 0 . 38*xi/rex**0 . 2 

do 10 i2 = 1 , n3 

eta = float(i2-l)*deta t % 

terml = ( (beta+1 . 0)/(beta-l . 01 )**( 1 . 0-eta) 
top = (beta+1.) - (beta-1 . )*terml 
bottom - terml + 1.0 
y ( il , i2) = delb*top/bottom 
x(il,i2) = xi 
10 continue 

y( il , 1 ) = 0.0 

Q 

c Compute y coordinates outside boundary layer 

c 

do 20 i2 = n3+l,n2 „ 

y ( il , i2) = y(il ,n3) + (y(il ,n3)-y(il ,n3-l) )*Ci2~n3) 

x(il,i2) = xi 
20 continue 

30 continue 

c 

— Write unformatted coordinate system file 
c 

write (7) nl,n2 

write (7) ( (x(i, j) ,i=l ,nl) , i=l ,n2) , 

$ ((y(i, j),i=l,nl), j=l ,n2) 

close (7) 
end 

EOF 

cft77 -d pq coord. f 
segldr - o coord. ex coord. o 
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coord . ex 

rm coord. f coord. o coord. ex 
ja -cslt 


Initial Conditions 

The computations are done in two separate major steps: a calculation using the Baldwin-Lomax alge- 
braic turbulence model and a calculation using the Chien k-t model. To start the Baldwin-Lomax calcu- 
lation, the initial velocities u and v were calculated using the Blasius equations for a laminar boundary layer 
over a flat plate. Non-dimensional values of p were set to 1.0 everywhere in the flow field. To start the 
Chien calculation, the initial values of w, v, p , and \i t for the turbulent flow field were obtained from the 
converged Baldwin-Lomax calculation. The initial values of k and e were obtained using the default 
KEINIT subroutine. 


Boundary Conditions 

For both calculations, constant stagnation enthalpy was assumed. Therefore, three boundary conditions 
were required for the mean flow at each computational boundary. In addition, for the Chien calculation, 
boundary conditions were required for k and e at each computational boundary. 


For the Baldwin-Lomax calculation, the static pressure was specified at both the upstream and down- 
stream boundaries. The velocity profiles were specified using the Blasius solution at the upstream bound- 
ary, and extrapolated at the downstream boundary. At the surface of the plate no-slip conditions were used 
for the velocity, and the normal pressure gradient was set equal to zero. Freestream conditions were spec- 
ified at the outer boundary. These boundary conditions are summarized in the following table. 


Boundary Boundary Conditions 


— 0 U Ugfaiiif, V — ^Blasius) P ' 1 

\ = 1 u and v extrapolated, p— 1 

>7 = 0 « = v = 0, dp) dr\ = 0 

Y\ — 1 u— 1 , dvjdrj = 0,p= 1 


For the Chien calculation, the boundary conditions for the mean flow were the same as for the 
Baldwm-Lomax calculation. At the upstream boundary, the gradient of the turbulent kinetic energy k was 
set equal to zero for the first 1000 time steps. After that time, the value of k was kept constant. The gra- 
dient of the turbulent dissipation rate e was set equal to zero for all time. At the downstream boundary, k 
and t were extrapolated. No-slip conditions were used at the surface of the plate, and freestream conditions 
were used at the outer boundary. The boundary conditions for k and t are summarized in the following 
table. 


Boundary 

Boundary Conditions 

£ = 0 

dkjd^ = 0 for n < 1001 


k = k' m for n > 1001 


dsldt = 0 

£= 1 

k and t extrapolated 

>7=0 

k = z = 0 

>7=1 

dkjdr] = dt/dr, = 0 


JCL and Input for Baldwin-Lomax Calculations 

The first set of calculations used the Baldwin-Lomax algebraic turbulence model. The Cray UNICOS 
JCL file for the run is listed below. The contents of the input section of this listing should be compared 
with the detailed input description in Section 3.0. 

# QSUB -1M 2 . OmW -IT 1800 

# QSUB -mb -me 

# QSUB -o temp. out 
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# QSUB -eo 

# QSUB -r fplatel 

# QSUB -s /bin/sh 
set -X 

ja 

# Create modifications file 


cat > modi << EOM 
xid newstuff 
xd paramsl.19 

parameter Cnlp - 81, n2p - 51) 

Xd paramsl.22 

parameter (neqp = 3) 
xpurgedk init 
xdeck init 

subroutine init 

c Purpose: Set up initial laminar velocity profile using the 

c Blasius equation, 

c 

c Common blocks 

Xcall paramsl 
Xcall bcl 
Xcall flowl 
Xcall gmtryl 
Xcall iol 
Xcall metricl 
Xcall numl 

c Check for illegal icvars option (must equal 2 for default init) 

c 

if Cicvars .ne. 2) then 
icvars = 2 

write (nout,10) , , _ _ . - ,, - 

10 format (/■ XXXX WARNING - icvars reset to 2 for default init. ) 

endif 

c Set initial flow field over the flat plate 

do 110 il = l,nl 
rex = x(il,l)*rer 


c Velocity profile 

do 100 i2 = 2,n2 
if (u(il,i2-l) .It. 1.0) then 

etab = y(il ,i2)/xCil,i2)Xsqrt(rex) 
call bias Cetab,f bn,fbp,fbpp) 
uCil,i2) s fbp 

v(il,i2) = 0 . 5/sqrt(rex)*(etabXfbp-fbn) 
else 

u(il,i2) = 1.0 
v(il,i2) = v(il,i2-l) 
endif 

w(il,i2) = 0.0 
pCil ,i2) = 1.0 
tC il , i2) = 1.0 
100 continue 

uCil , 1 ) = 0.0 
vCil , 1 ) = 0.0 
w( il , 1 ) = 0.0 
pC il , 1) = 1.0 
tCil 1 1) = 1.0 
110 continue 
return 
end 


Xdk bias 

subroutine bias 


C etamax , f n , f p , f pp ) 


Purpose: Numerically solve the Blasius equation for a laminar 
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c boundary layer profile, 

c 

dimension y(3),f(3) 
etamin =0.0 
m - 0 
n = 3 

deta = (etamax-etamin)/l 00 . 0 
yCl) = 0.332213 
y(2) = 0.0 
y(3) = 0.0 

10 if (etamin . le . etamax-deta) then 
20 call runge (n,y ,f ,etamin ,deta,m,k) 

if (k . eq . 1) then 

f(l) = -l./2.*y(l)*y(3) 
f (2) = yCl) 
f (3) = y(2) 
go to 20 
else 

go to 10 
endif 
endif 
fpp = yd) 
fp = y(2) 
fn = y( 3) 
return 
end 

Xdk runge 


subroutine runge (n,y ,f ,x,h,m,k) 
c 

c Purpose: Perform Runge~Kutta calculation by Gills method. 

c 

dimension y(3) ,f (3) ,q(3) 
m = m + 1 

go to (1,4, 5, 3, 7), m 

1 do 2 i = l,n 
q(i) = 0.0 

2 continue 
a = 0.5 
go to 9 

3 a = 1.7071067811865475244 

4 x = x + 0 . 5*h 

5 do 6 i = 1 ,n 

y(i) = y(i) + a*(f (i)*h-q(i ) ) 

6 q(i) = 2 . 0*a*h*f (i) + ( 1 . 0-3 . 0*a) *q( i ) 
a = 0.292832188134524756 

go to 9 

7 do 8 i = l,n 

8 y(i) = y(i) + h*f(i)/6.0 - q(i)/3.0 
m = 0 

k = 2 
go to 10 

9 k = 1 

10 return 
end 


EOM 

# Set up and link necessary input/output files 

touch plotx 
touch plotq 
touch chist 
touch rql 
touch rxl 
in fcoords fort. 7 

In plotx fort. 8 

In plotq fort. 9 

In chist fort. 10 

In rql fort. 12 

in rxl fort. 14 

# Update code using modifications file 
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update -p p2d20.u “i modi ~c temp -f 


# Compile, load, and run Proteus 


cft77 -d pq -o aggress temp.f 
segldr -o temp. ex temp.o 
temp. ex << EOD 

Flat Plate Turb. Boundary Layer, Baldwin-Lomax Model 
Srstrt 

irest=l , Write restart files. 

Send 

Sio 


ivout=l , 2 , 48*0 , 
iwout2( 1 ) =1 , 
iprt=l 00000 , 
iprtl=4, iprt2=2, 
iplot=3. 

Send 
Sgmtry 
ngeom=l 0 , 

Send 
Sflow 
ihstag=l , 
lr=0. 477630871, 
machr=0.3, rer=1000000 . , 
gamr=l . 4 , 

Send 

Sbc 

jbclCl , 1 )=41 , jbcl (1,23=41, 
jbcl (2, 1 )=10 , jbcl (2, 2)=14, 
jbcl(3, 1 )=20 , jbcl(3,2)=24, 
jbc2( 1 , 1 ) =42 , jbc2(l,2)=41. 


jbc2(2,l)=ll, jbc2(2,2)=ll , 
jbc2(3 , 1 )=21 , jbc2(3,2)=22. 
Send 
Snum 

nl=81, n2=51. 

Send 
Stime 
idtmod=l , 
ntseq=2, 

idtau=5, cfl=5.,20., 
ntime=l 000 , 9000 , 
ictest=4, eps=3*0 . 000001 , 
Send 
Sturb 
iturb=l , 


Print u and v. 

Print surface values . 

Print every 100,000 time levels . 

Print at every 4th. £ and 2nd. rj index. 
Write PLOT3D 3-D plot files. 


Get computational coordinates from file. 


Constant stagnation enthalpy . 
Set Lr . 

Set M r and Re r . 

Constant specific heats. 


gbcl Cl, 1) = 1.0, gbcl ( 1 , 2) = 1 . 0 , /> = 1 af £ = 0, 1. 
u = Unit, u extrapolated at ^ — 0, 1. 
v = Vim* v extrapolated at { = 0, 1. 

gbc2( 1 , 2) = 1 . 0 , dpjdrf = 0, p = 1 
at t] = 0, 1. 

gbc2(2, 2) = 1 . 0 , 1 at rj = 0, 1. 

v = 0, dvjdrj = 0 at rj = 0, 1. 


Use an 81 x 51 mesh. 

Recompute At every time step. 

Use 2 time step sequences. 

Spatially varying At, CFL = 5, then 20. 

1000 time steps in first sequence, 9000 in second. 
Use R avi — 10“ 6 as convergence criteria. 


Turbulent flow, Baldwin-Lomax model. 


Send 

Sic 

Send 

EOD 


rm -r modi temp.f temp.o temp. ex 
ja -cslt 


JCL and Input for Chien Calculations 

The second set of calculations used the Chien two-equation turbulence model. It was run in two steps. 
The first run was a restart from the converged Baldwin-Lomax calculation. In this run, the gradient of the 
turbulent kinetic energy k at the upstream boundary was set equal to zero. 
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The Cray UNICOS JCL file for the first run is listed below. Note that EPS, the required level of con- 
vergence, is lower than for the Baldwin- Lomax calculations. This is necessary so that this run can be started 
from the converged solution of the Baldwin-Lomax calculation. The contents of the input section of this 
listing should be compared with the detailed input description in Section 3.0. 

# QSUB -1M' 2 . OmW -IT 600 

# QSUB -mb -me 

# QSUB -o temp. out 

# QSUB -eo 

# QSUB -r f P late2 

# QSUB -s /bin/sh 
set -x 

ja 

# Create modifications file 

cat > modi << EOM 
Xid newstuff 
*d paramsl.19 

parameter (nip = 81 > n2p = 51) 

*d paramsl.22 

parameter (neqp - 3) 

EOM 

# Set up and link necessary input/output files 


touch plotx 
touch plotq 
touch chist 
touch rq2 
touch rx2 
In plotx fort. 8 
In plotq fort. 9 
In chist fort. 10 
In rql fort. 11 
In rxl fort. 13 
In rq2 fort. 12 
In rx2 fort. 14 

# Update code using modifications file 
update -p p2d20.u -i modi -c temp -f 

# Compile/ load/ and run Proteus 


cft77 -d pq -o aggress temp.f 
segldr -o temp, ex temp.o 
temp. ex << EOD 

Flat Plate Turb. Boundary Layer/ 
Brstrt 
irest=3/ 

Send 

Bio 

ivout=l ,2/106/107/ 46*0 > 
iwout2( 1 )=1 / 
iprt=l 00000 / 
iprtl=4, iprt2=2/ 
iplot=3, 

Bend 
Bgmtry 
ngeom=10 / 

Bend 
Bf low 
ihstag=l / 
lr=0. 477630871, 
machr=0.3, rer=1000000 . / 
gamr=l .9/ 

Bend 


Chien Model 

Read restart files , previous run used Baldwin-Lomax . 


Print u, v, k, and z. 

Print surface values. 

Print every 100,000 time levels. 

Print at every 4th. £ and 2nd . rj index. 
Write PLOT3D 3-D plot files. 


Get computational coordinates from file . 


Constant stagnation enthalpy. 
Set Lr. 

Set Mr and Re r . 

Constant specific heats. 
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&bc 

jbctl(l,l)= * 
jbctl (2, 1 )=12 
jbct2( 1 , 1 ) = 1 
jbct2(2,l)=ll 
jbclCl , 1)=41 , 
jbcl(2,l)=10, 
jbcl(3,l)=20, 
jbc2( 1 , 1 )=42, 

jbc2(2,l)=ll, 

jbc2(3,l)=21. 

Send 

Snum 

nl=81 , n2=51 , 
Send 
Stime 
idtmod=l , 
idtau=5, cfl=: 
n*time=1000 , 
ictest=4, eps 
Send 
Sturb 
iturb=20 , 

Send 

Sic 

Send 

EOD 


jbctldjZ)- 4 
jbctl ( 2 , 2)=14 
jbct2(l,2)= 2 
jbct2(2,2)=12 
jbclCl ,2)=41 , 
jbcl(2,2)=14, 
jbclC 3 , 2) = 24 , 
jbc2( 1 , 2)=41 , 

jbc2C2,2)=ll, 
jbc2( 3 , 2)=22 , 


3*0.0000001, 


, dkjd£ = 0 , k extrapolated at ^ — 0, 1. 

, dsjd£ = 0, s extrapolated at £ = 0, 1. 

, k = 0, dkjdrf = 0 at r\ = 0, 1 . 

, t = 0, dz/dy = 0 at r\ = 0, 1 . 

gbcl (1 , 1 ) = 1 . 0 , gbcl ( 1 , 2) = 1 . 0 , p=lat£ = 0 t 1. 
u = Uiru:, u extrapolated at £ = 0, 1. 
v = Vm, v extrapolated at £ = 0,1. 

gbc2( 1 ,2)=1 . 0 , dpjdrj — 0, p — 1 
at rj = 0, 1. 

gbc2(2 , 2) = 1 . 0 , u = 0, 1 at rj = 0, 1. 
v = 0, dvjdrj — 0 at r] = 0, 1. 


Ure an 81 x 51 mesh. 


Recompute At every time step. 

Spatially varying At. 

Limit of 1000 time steps . 

Use = 10' 7 05 convergence criteria . 

Turbulent flow , Chien model . 


rm -r modi temp.f temp . o temp. ex 
ja -cslt 

The JCL and input for the second run was similar to that for the first run. The only differences were: 


1. The touch and In commands for the restart files were changed to: 

touch rq3 
touch rx3 
In rq2 fort. 11 
In rx2 fort. 13 
In rq3 fort. 12 
In rx3 fort. 14 

2. In namelist RSTRT, IREST was set equal to 2, since the previous run used the two-equation tur- 
bulence model. 

3. In namelist BC, the value of JBCTl(l.l) was changed from 2 to 0. This changed the boundary 
condition on the turbulent kinetic energy k at the upstream boundary from dkfdZ = 0 to k = k M „ 
where k trtll is the value at the end of the previous run. 

4. In namelist TIME, the CFL number was raised to 10.0, and the maximum number of time steps 
was increased to 10000. 

5. In the QSUB statements, the CPU time limit was raised to 3600. 

Standard Proteus Output 

The output listing for the third run is_shown below. In the flow field printout, only the ^-velocity at 
the last time level, and the boundary parameters, are included. 


NASA Lewis Research Center 
Internal Fluid Mechanics Division 
2-d Proteus version 2.0 
January 1992 
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Flat Plata Turb. Boundary Layer, Chien Modal 


4RSTRT IREST * 2, NRQIN = 11, NRQOUT = 12, K»XIN =13, 

810 I DEBUG = 20-0, IPIOT = 3, IPLT = 0, TPLTA = 101-0, IPRT = 1 00000, IPRT1 * 4, IPRT2 = 2, IPRTA = 101-0, IPRT1A * 1, 

4, a, 12, 16, 20, 24, 28, 32, 36, 40, 44, 44, 52, 56, 60, 64, 64, 72, 76, 40, 41, 50-0, IPRT2A = 1, 2, 

6, 4. 10, 12, 14, 16, 14, 20, 22, 24, 26, 24, 30, 32, 34, 36, 34, 40, 42, 44, 46, 44, 50, 51, 24-0, 
IVOUT = 1 , 2, 1 06, 107, 46-0, IWOUT1 = 2-0, IWOUT2 = 1, 0, NGR1D - 7, NHIST » 10, NfHAX = 100, NOUT = 6, 
NPLOTX = 4, NSCR1 = 20, SEND 

= 0, NGEOH * 10, RMAX = 1.®; RMIN = 0.0, THMAX = 90.0, TWIN = 0.0, XMAX * 1.0, XMIN = 0.0, YWAX = 1.0, 

8EMD 

HStAGft = 0.0, ICVARS = 2, IEULER = 0, IHSTAG = 1, ILAMV = 0, ISWIRL = 0, I THIN * 2-0, KTR = 0.0, 

MACHR = 0.3, MUR = 0.0, PRLR = 0.0, RER = 1000000.0, RG = 1716.0, RHOR = 7.645E-02, TR = 519.0, 


FBCT1 = 204-0.0, FBCT2 =*324-0.0, GBCi = 1.0, 4-0.0, 1.0, 4-0.0, GBC2 = 5*0.0, 


NRXOUT = 14, SEND 
IPRT = 100000, IPRT1 

12, 

8. 

I UNITS * 0, 

NPLOT * 9, 

8GMTRY I AX I 
YMIN = 0.0, 

8FL0W GAMR = 1.4, 

LR = 0.477630871, 

UR = 0.0, SEND 

SBC FBC1 = 510-0.0, FBC2 = 810-0.0, 

2-1.0, 3-0.0, GBCT1 

51-10, 51-0, 51-10, 

21, 2*0, 41, 11, 22, 2-0, 

KBC2 = 2-0, NTBC = 0, NTBCA 
SNUM CAVS2E = 5-1.0, CAVS2I = 

SQ = 2*0.0, 2-10008.0, THC = 1.0 

THZ = 1.0, 2*0.0, SEND 

8TIME CFL = 10.0, 9-1.0, CFLMAX = 10.0, CFLMIN = 0.5, CHG1 = 4.0E-02, CHG2 = 6. 06-02, DT = 10«1.0E-02, DTF1 = 1.25, 

DTF2 = 1.25, DTMAX * 1.0E-02, DTMIN = 1.0E-02, EPS = 3-1.0E-07, 2-1. IE-03, ICH6CK = 10, ICTEST = 4, IDTAU = 5, 

IDTMOD = 1, NDTCVC = 2, NITAVG = 10, NT I ME = 10000, 9*0, NTSEQ = 1, TLIM = 20.0, SEND 

8TURB APLUS = 26.0, CB * 5.5, CCLAU = 1.68E-02, CCP = 1.6, CKLEB = 0.3, CKMIN = 0.1, CHI® = 9.0E-02, CNA = 2.0, 

- - — — — — ““ * * * — * * INNER - 1, IT ETA - 0, 

PRT = 0.91, REXT1 = 


IBC2 * 810-0, IBCT1 
24, 2-0, JBC2 = 42, 


4-0.0, GBCT2 = 4-0.0, GTBC1 = 100-0.0, GTBC2 = 100-0.0, IBC1 = 510-0, 

IBCT2 = 81-0 , 61*115, 41-0, 41-10, JBC1 = 41, 10, 20, 2-0, 41, 14, 

JBCT1 = 0, 12," 4, 14, JBCT2 = 1, 11, 2, 12, JTBC1 = 10-0, 

SEND 

CAVS4E = 5-3.0, IAV2E = 0, IAV2I * !, IAV4E * 1, IPACK = 2-0, N1 = 41, 
2-0.0, THE = 1.0, 2-0.0, THKE = 1.0, 0.0, THX * 1.0, 2-0.0, THY = 1.0, 


51-0, 

11 , 


10 - 0 , 

5-2.0, 


JTBC2 = 10-0, KBC1 = 2-0, 


N2 = 51, 

2 - 0 . 0 , 


CNL = 1.7, CONE = 1.35, CTWOR = 1.4, 
ITURB = 20, ITXI = 1, XWALL3 = 2*-l, 
REXT2 =0.0, TFACT =1.0, SEND 


CKMIN 

C THREE = 1 . 15E-02, CVK = 0.4, CMK = 0.25, I L DAMP = 0, 

I WALL 2 = 2--I, LWALL1 = 102-0, 4.NALL2 = 162-0, NTJCE = 1, 


Normalizing conditions 

length, lr * 4.7763E-01 
Velocity, ur * 3.3499E*02 
Temperature , tr * 5.1900E*02 
Density, rhor = 7.6450E-02 
Viscosity, mur * 1.2232E-05 
Thermal conductivity, ktr » 1.01926-01 
Pressura, rhor*ur--2 * 8.57896*03 
Enargy/vol., rhor-ur-«2 ■ 8.5789E*03 
Gas constant, ur--2/tr = 2.16226*02 
Specific heat, ur«-2/tr = 2.16226*02 
Stagnation enthalpy, ur-»2 = 1.12226*05 
Time, lr/ur = 1.4254E-03 


ft 

ft/sec 

dag R 

lbrn/f t3 

lbm/ft-sec 

lbm-f t/sec3-deg R 

lbm/f t-sac2 

lbm/f t-see2 

f t2/sec2-dag R 

f t2/sec2-deg R 

f t2/sec2 

sac 


Reference conditions 


Reynolds number, rer 
Mach number, machr 
Specific heat ratio, gamr 
Laminar Prandtl number, prlr 
"Reference” Prandtl number, prr 
Specific heat at const, press. 
Specific heat at const, vol. 

Gas constant, rg 
Pressure, pr 

Stagnation enthalpy, hstagr 


1.00006*06 
3. QOOOE-Ol 
1 .4000E*00 
7.2082E-01 
2 - 595 0E- 0 2 

6. 006 0E *03 ft2/sec2-deg R 
4 . 29 0 0£* 03 ft2/sec2-deg R 
1.71606*03 f t2/sec2-deg R 
2. 1 162£*03 lbf/ft2 
3. 1 732E*06 f t2/sec2 


Boundary condition parameters 


jbcl (1,1) = 

41 

gbelCUl) = 

1.0000E+00 

jbcl (2, 1 j = 

10 

gbcl(2,l) = 

0.00 OOE* 00 

jbcl (3,1) = 

20 

gbcl (3,1) = 

0 . 00 0 OE* 0 0 


jbc2(l,2) 
jbc2C2,2) 
j bc2 ( 3, 2) 


Jbc2(l,l) 
j bc2 (2, 1 ) 
j bc2(3, 1 ) 


41 

11 

22 


42 

11 

21 


gbc2C 1 , 2) 
Sbc2(2,2) 
gbc2(3,2) 


gbc2(l ,1) 
gbc2(2, 1 ) 
gbe2(3,l) 


1 .1 OOOE* 0 0 
1.6000E*00 
6. 0 OOOE* 0 0 


i.OOOOE*DO 
0. 0 OOOE* 0 0 
0. 0 OOOE* 0 0 


jbcl(l,2) * 

41 

gbcl (1,2) = 

1 . 0 0 OOE* 00 

jbcl (2*2) * 

14 

gbcKi.,2) = 

0 . 0 0 OOE* 00 

jbcl (3,2) * 

24 

gbcl (3, 2) = 

0. OOOOE*DO 


Boundary condition parameters, k-r equations 


jbctl (1,1) 
jbctl (2,1) 


0 

12 


gbct 1 ( 1,1) 
gbctl (2,1) 


jbct2(l,2) = 
jbct2(2,2) = 
0 . OOOOE* 00 
0 , 0 OOOE* 00 

jbct2( 1 , 1 ) * 


gbct2Cl ,2) 
gbct2 ( 2, 2) 


0 . OOOOE* 0 0 
0 . OOOOE* 0 0 


gbct2Cl,l) = 0 . OOOOE* 0 0 


jbctl (1,2) * 
jbctl (2,2) = 


4 

14 


gbctl (1,2) = 
gbctl (2,2) = 


0. OOOOE*OC 
0. 0080E*00 


jbct2(2, 1) = 11 gbct2(2,l> s O.OO0OE*OO 


x-velocity 


at time level 15320 


ixi 

* 1 

4 

8 

12 

16 

20 

24 

28 

32 

36 

leta 

51 

1 . O0O0E* 0 0 

1 . 000 OE* 00 

1 . 0 00 0E* 00 

1 . 0000E*D0 

i.ooqoe*oo 

1.000T>E*M 

1 . COOOE* 00 

1. OOOOE *00 

1 . 000 0E*00 

1.00006*00 

50 

1 . OOOOE*OD 

1 . 000 OE* 00 

1 . 0O0OE*0O 

9 . 9999E-01 

9.9999E-01 

1 . OO0OE*#O 

1 .00006*00 

1.00006*00 

1,00006*00 

1 . OOOOE*00 

44 

1 . 0 000E* 0 0 

1 . 000 IE* 00 

1 . OOOOE* 00 

9 . 9999E-01 

9.9949E-01 

9.9981E-I1 

9.9974E-01 

9.9982E-01 

9 . 9994E- 0 i 

1. 00016*00 

46 

9.9934E-01 

9.9986E-01 

9 . 9965E- 01 

1 . 0002E*00 

1.0007E*00 

1.001 1E*60 

1.00156*00 

1 . 0017E*00 

1 . 0018E* 00 

1 .00186*00 

44 

9 . 9204E- 01 

9 . 999 0E- 01 

1.0005E*00 

9 . 9866E-01 

9 . 9667E-01 

9 . 9475E-61 

9.92956-01 

9 . 9129E-01 

9.8977E- 01 

9 . 8837E- 0 1 

42 

9.5957E-01 

9.7374E-01 

9.7459E-01 

9.6955E-01 

9 . 6600E-01 

9 . 63266-01 

9.61016-01 

9.S910E-01 

9 .57446-01 

9.5599E-01 

40 

4.7707E-01 

9 . 3320E- 01 

9.3245E-01 

9 . 2839E-01 

9 . 2569E-01 

9.2366E-01 

9.22036-01 

9. 2067E-01 

9.1 950E- 01 

9 . I848E- 0 1 

34 

7 . 4577E-01 

4.9044E-01 

8-4902E-01 

4.8652E-01 

8.84S4E-01 

8 .8369E-01 

8.82766-01 

4.8200E-01 

8.41 36E- 01 

8.8080E-01 

36 

5. 9560E-0 1 

8. 4816E-01 

8. 4730E-01 

8 - 4643E-01 

4. 457 IE- 01 

8 . 45236-01 

8.44896-01 

4.4464E-01 

8.4445E-01 

8.4430E-01 

34 

4.5565E-01 

8. 0482E- 01 

8.0759E-01 

4. 0451E-01 

4.6464E-01 

4.08736-01 

8.08456-01 

8. 090 IE- 01 

8. 0917E- 01 

8. 0934E- 01 

32 

3-3947E-01 

7.601 IE- 0 1 

7.6922E-01 

7 . 7234E-01 

7-7344E-01 

7.741 0E-I1 

7.74636-01 

7.751 0E-01 

7.7554E-01 

7.7595E-01 

30 

2.4887E-01 

7.1314E-01 

7.31 13E-01 

7.3707E-01 

7.3944E-01 

7.40886-01 

7.41886-01 

7.4269E-01 

7. 43386-01 

7.4400E-01 

28 

1 .8056E-0] 

6.6284E-01 

6 . 9207E-03 

7. 0163E-01 

7.0543E-01 

7 . 08296-01 

7.09986-01 

7.1 126E-Q1 

7.1228E-01 

7.I315E-01 

26 

1 . 3004E-01 

6. 0794E-01 

6 . 5072E-01 

6.6482E-01 

6.7143E-01 

6.7537E-I1 

6.78056-01 

6.80036-01 

6 . 8157E- 01 

6 .8283E- 01 

24 

9 . 31 06E-02 

5. 4698E- 0 1 

6 . 0571E-01 

6.2541E-01 

6.3510E-01 

6 . 41 026-01 

6.45066-01 

6. 48046-01 

6.5C33E-01 

6.5218E-01 

22 

6.631 IE-02 

4 . 7857E- 01 

5-5551E-0I 

5.8203E-01 

5.9558E-D1 

6 . 0402E-I1 

6.09866-01 

6.1418E-01 

6.1 751E- 01 

6.2018E-01 

20 

4.6968E-02 

4.0204E-01 

4. 9849E-01 

5. 3318E-01 

S.5146E- 01 

5. 6306E-I1 

5.7U86-01 

5.7722E-01 

5.81926-01 

5.8569E-01 

14 

3. 3052E-02 

3. 1949E- 01 

4.3306E-O1 

4.7714E-01 

5-Q113E-01 

5.1659E-01 

5.27536-01 

5 . 3574E-01 

5.4217E-01 

5 . 4737E-01 

16 

2. 3066E-02 

2.3842E-01 

3. 5851E-01 

4. 1217E-01 

4.4264E- 01 

4.62756-01 

4.77136-01 

4.88026-01 

4.96616-01 

5 . 0359E-01 

14 

1 .5912E-02 

1 .6899E-01 

2.7756E-01 

3.3739E-Q1 

3.7424E-01 

3.9942E-41 

4.17796-01 

4.31446-01 

4. 4309E-01 

4.5227E-01 

12 

1 . 0793E-02 

1 . 1561E-01 

1.9938E-01 

2.5590E-01 

2.9577E-01 

3. 25D1E-01 

3.47266-01 

3.6477E-01 

3.74946-01 

3.9 068E-01 

IQ 

7 . 1 334E-03 

7.6587E-02 

1 . 3444E-01 

1.7807E-Q1 

2. 1314E- 01 

2. 41896-01 

2.65556-01 

2.8523E-01 

3.01806-01 

3. 1591E-01 

4 

4.5190E-03 

4.8537E-02 

4.5609E-02 

1 . 1462E-01 

1.3945E-01 

1 .61406-01 

1.41006-01 

1 .94596-01 

2. 1 440E- 01 

2.2864E-01 
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6 2. 6520E-03 

4 1.3192E-03 

2 3.6797E-04 

1 O. OOOOE+OO 

ixi * 40 

ieta 

51 l.OOOOE+OO 
50 l.OOOOE+OO 
AS 1 . 0 003E+ 00 
46 1.0018E+00 

44 9.87Q8E-01 

A2 9.5469E-01 
AO 9. 1757E-01 
38 8. S031E- 0 1 

36 8.AA17E-01 

3A 6.0950E-01 
32 7.763AE-01 

30 7. 4456E-01 

26 7. I 39 1 E- 01 

26 6.8389E-01 

2A 6.5370E-01 
22 6.2238E-01 

20 5-8880E-01 

18 5.5166E-01 

16 5.0939E-01 

1A A . 5993E- 01 
12 A . 0 058E- 01 
10 3.2807E-01 

8 2.4I48E-01 

6 1.51A5E-01 

A 7.6A08E-02 

2 2. 1 220E-02 

1 0 . OOOOE+OO 


2. 8475E-02 

1. A1A9E-02 
3. 9225E-03 
O.OOOQE+OO 

AA 

l.OOOOE+OO 
l.OOOOE+OO 
1 . 0005E+ 00 
1 .0016E+00 
9 . 8569E- 0 1 
9.5352E-0I 
9 . 1676E-01 
8. 7967E-01 
8. 4406E-O1 
8.0967E-01 
7 . 7670E- 01 

7 . A508E-0 1 
7 . 1 A60E-0I 
6.8A60E-01 
6.5A99E-01 
6.2A23E-01 
5. 91 42E-01 
5.5529E-0 1 
5. 1 A30E-0 1 
A. 66A6E-0 1 
A. 0906E-0 1 
3.3665E-01 
2.531 OE- 0 1 
1 . 6 076E- 0 1 
S. 1 A27E-02 
2. 2625E- 02 
0 . OOOOE+ 00 


5.O279E-02 

2. A987E-02 
6 . 9276E-03 
0. OOOOE+OO 


AS 

1 . OOOOE+OO 
l.OOOOE+OO 
1 . 0007E+ 00 
1 . OOlAE+00 
9.8473E-01 
9.52A6E-01 
9.16Q2E-0I 
8.79A7E-01 

8.A397E-01 
8 . 0982E-01 
7.7705E-01 

7 . A557E-0 1 
7. 1522E-0 1 
6.8562E-01 
6.5611E-01 
6 - 2582E- 01 
5. 9366E- 01 
5.58A0E-01 
5-1852E-01 
4.7209E-01 
A. 16A3E-01 
3-A796E-01 
2.636AE-01 
1 . 6959E- 01 
8 . 628AE- 02 
2.3987E-02 
0. OOOOE+OO 


6.7A90E-02 
3.3556E-02 
9 . 3037E- 03 
0. OOOOE+OO 

52 

i.osooe+oo 

l.OOOOE+OO 

i.ooioe+oo 
1 . 0012E+00 
9.8375E-01 
9 . 51A9E-01 
9.1535E-01 
8.791 IE-01 
8-A389E-01 
8.0997E-01 
7.7738E-01 
7. 46038-01 
7 .15798-01 
6.8635E-01 
6 . 571 OE- 01 
6. 27208-01 
5. 956 IE- 0 1 
5.611 OE- 0 1 
5. 2220E- 0 1 
4. 7701E- 0 1 
A. 2290E-0 1 
3.5621E-01 
2.7323E-01 
1.7798E-01 
9 . 0994E-02 
2.5312E-02 
0. OOOOE+OO 


8. 2A67E-02 
A . 1 035E-02 
1 .1376E-02 
0. OOOOE+OO 

56 

l.OOOOE+OO 
l.OOOOE+OO 
1 .0012E+00 
1 .0009E+00 
9 . 8279E- 01 
9.5059E-01 
9 . 1473E- 01 
8 . 7879E- 01 
8.4382E-01 
8.101 IE-01 
7 . 7769E- 01 
7.46478-01 
7.16338-01 
6.8702E-01 
6 . 5798E- 0 1 
6 . 2842E-01 
5 . 9732E-01 
5. 63A8E-01 
5. 25AAE- 01 
A.6136E-01 
A . 2864E- 01 
3 . 6358E-01 
2.8198E-01 
1 . 8595E- 01 
9 . 5571E- 02 
2.6603E-02 
0. OOOOE+OO 


9.6037E-02 

A.78AAE-02 

1.3268E-02 

0. 0000E+OO 

60 

1 . OOOOE+OO 
l.OOOOE+OO 
1. OOIAE+OO 
1 . 0006E+00 
9.8189E-01 

9.A977E-01 
9. 1 A17E-01 
8.78A8E-01 
8. 4375E-01 
8.1025E-01 
7.7796E-01 

7 . A688E- 01 
7. 16848-01 
6.67638-01 
6 . 5876E- 01 
6.2951E-01 
5.988AE-01 
5.65588-01 
5-2832E-01 
4.8523E-01 
4.3376E-0I 
3. 7022E-01 
2.9600E-01 
1.9353E-01 
1 . 0003E-01 
2. 7865E-02 
0, OOOOE+OO 


1 . 08S7E-01 
5.A172E-02 
1.5026E-C2 
0. OOOOE+OO 

64 

l.OOOOE+OO 
1 . 0001E+00 
1.0016E+00 
1 . 0003E+00 
9.81 04E-01 
9. A900E-01 
9.1 364E-01 
8.78208-01 

8.A369E-01 
8. 1 038E-01 
7.78278-01 
7. 4727E-01 
7 . 1732E-01 
6.8821E-01 
6.5951E-01 
6. 30A9E-01 
6.0019E-01 
5. 6746E-01 
5. 3090E-01 
A.8871E-01 
A. 3838E-01 
3.7623E-01 
2.9756E-01 
2. 007AE-01 
1 . 0A37E-01 
2.91 OOE-02 
0. OOOOE+OO 


1.2026E-01 
6.0131E-02 
1 . 6682E- 02 
0. OOOOE+OO 

68 

l.OOOOE+OO 
1.0001E+00 
1 . 0018E+ 00 
l.OOOOE+OO 
9 .80248-01 

9.A829E-01 
9. 1315E-01 
8-779AE-01 

8.A36AE-01 
8. 1051E-01 
7 . 7853E-01 
7 . A765E- 01 
7 . 1777E-01 
6. 887 AE- 01 
6 . 6017E-01 
6 .3138E-01 
6.01428-01 
5. 6916E-01 
5. S322E-01 
A . 918AE- 01 
A. A256E-01 
3.6170E-01 
3.0A16E-01 
2.0759E-01 
1 . 0861E-01 
3. 031 OE-02 
0. OOOOE+OO 


1 . 31 26E-01 
6 . 5792E-02 
1.8258E-02 
0. OOOOE+OO 

72 

l.OOOOE+OO 
1 . 0001E+00 
1.0019E+00 
9 . 9968E- 0 1 
9. 79488-01 
9.4761E-0I 
9.1269E-0I 
8.7770E-01 
8.4359E-01 
8.1063E-01 
7 . 7879E- 01 
7.A801E-01 
7.1820E-OI 
6.8925E-01 
6 . 6 079E-0 1 
6.3219E-01 
6 .02538-0 1 
5.7070E-01 
5 . 3533E-01 
A.9A70E-01 
A. A636E- 01 
3.8670E-01 

3.TOA4E-01 
2.1A11E-01 
1 . 1 275E-01 
3. 1 A97E-02 
0. OOOOE+OO 


1 . 4163E-01 
7 . 1205E-02 
1.9767E-02 
0. OOOOE+OO 

76 

1. OOOOE+OO 
1 . 0002E+ 00 
1 . 0021E+00 
9 . 9933E- 01 
9 . 7875E-01 

9 . A698E-01 
9.1226E-01 
ft. 77A7E-01 
8. 4555E- 01 
ft. 1 074E-01 
7.7903E-01 
7 . A635E-01 
7 . 1662E-01 
6 . 8973E-01 
6.6137E-01 
6 . 3293E-01 
6. 0354E-01 
5.721 OE- 0 1 
5 - 3725E-0 1 
A.9730E-01 
A . A985E- 0 1 
3.9129E-01 
3. 1626E-01 
2. 2032E-01 
1 . 1680E-01 
3. 2663E-02 
0. OOOOE + OO 


ixi 

- 80 

ieta 


51 

l.OOOOE+OO 

50 

1 .0002E+00 

AS 

1 .0022E+00 

46 

9 . 9896E- 01 

AA 

9 . 7806E- 01 

42 

9.A638E-01 

AO 

9.1 18AE-01 

38 

8 . 7725E- 01 

36 

8. 4350E- 01 

34 

8.1 083E-01 

32 

7.7925E-01 

30 

7 . 4865E-01 

28 

7 . 1899E- 01 

26 

6. 9016E-01 

24 

6.6189E-01 

22 

6 . 336 OE- 01 

20 

6.0AA5E-01 

18 

5.7335E-01 

16 

5.3899E-01 

14 

4.9966E-01 

12 

4.5303E-01 

10 

3. 9551E-0 1 

8 

3.2166E-01 

6 

2. 2621E- 01 

A 

1.2075E-Q1 

2 

3.3806E-02 

1 

0. OOOOE+OO 


81 

9.9936E-01 
1.0002E+00 
1 . 0 022E + 00 
9 . 9890E-01 
9.7789E-01 
9.A623E-01 
9. 1 174E-01 
8.7719E-01 
8.4348E-01 
8.1085E-01 
7 . 7929E-0 1 
7 . A872E-0 1 
7 . 19 07E-0 1 
6.9025E-01 
6.6200E-01 
6.3375E-01 
6.0A65E-01 
5.736AE-01 
5.3939E-01 
5.0022E-01 
A.5378E-01 
3.9652E-01 
3. 2296E-01 
2.2765E-01 
1 . 2172E-01 
3. 4089E-02 
0. OOOOE+OO 


Boundary parameters at eta - 0, time 


ixi 

X 

y 

P 

1 

1 . OOOOE-02 

0. OOOOE+OO 

9.9995E- 

2 

1 .3A88E-01 

0. OOOOE+OO 

9.9998E- 

3 

2.5975E-01 

0. OOOOE+OO 

1.0000E+ 

A 

3.8A63E-01 

0. OOOOE+OO 

9.9999E- 

5 

5. 0950E- 01 

0. OOOOE+OO 

9.9999E- 

6 

6 . 3436E- 01 

0. OOOOE+OO 

9.9999E- 

7 

7. 5925E-01 

0. OOOOE+OO 

9.9999E- 

8 

8.8A13E-01 

0. OOOOE+OO 

9.9999E- 

9 

1 .0090E+00 

0. OOOOE+OO 

1 . 0000E+ 

10 

1 . 1339E+00 

0. OOOOE+OO 

1.0000E+ 

11 

1 .2588E+00 

0. OOOOE+OO 

1.00008+ 

12 

1 .3836E+00 

0. OOOOE+OO 

1.0000E+ 

13 

1 . 5085E+00 

0. OOOOE+OO 

1 . OO0OE+ 

14 

1 . 633AE+00 

0. OOOOE+OO 

1 . 000 OE* 

15 

1.7583E+00 

0. OOOOE+OO 

1 . OOOOE+ 

16 

1 . 8831E+00 

0. OOOOE+OO 

1. OOOOE* 

17 

2. 0080E+00 

0. OOOOE+OO 

1 . 0000E+ 

18 

2. 1329E+00 

0. OOOOE+OO 

1.0000E+ 

19 

2.2578E+00 

0. OOOOE+OO 

1 . OOOOE+ 

20 

2.58268+00 

0. OOOOE+OO 

1 . 0000E+ 

21 

2.5075E+00 

0. OOOOE+OO 

l . 0000E+ 

22 

2.632AE+00 

0. OOOOE+OO 

1.0000E+ 

23 

2.7573E+00 

0. OOOOE+OO 

1.0000E+ 

24 

2.8821E+00 

0. OOOOE+OO 

1.0000E+ 

25 

3. 0070E+00 

0. OOOOE+OO 

1 .OOOOE* 

26 

3. 1319E+00 

0. OOOOE+OO 

1 . OOOOE+ 

27 

3. 2568E+00 

0. OOOOE+OO 

1.0000E+ 

28 

3.3816E+00 

0. OOOOE+OO 

1 .OOOOE+ 

29 

3.5065E+00 

0. OOOOE+OO 

1 .OOOOE+ 

30 

3.631AE+00 

0. OOOOE+OO 

1 .OOOOE+ 

31 

3. 7563E+00 

0. OOOOE+OO 

1. OOOOE* 

32 

3.8S11E+00 

0. OOOOE+OO 

1 . 0OGOE+ 

33 

A. 0060E+00 

0. OOOOE+OO 

1. OOOOE* 

34 

A. 1309E+00 

0. OOOOE+OO 

1 .OOOOE* 

35 

A. 2558E+00 

0. OOOOE+OO 

1. OOOOE* 

36 

A.3806E+00 

0. OOOOE+OO 

1. OOOOE* 

37 

A. 5055E+00 

0. OOOOE+OO 

1. OOOOE* 

38 

A.630AE+00 

0. OOOOE+OO 

1. OOOOE* 

39 

A.7553E+00 

0. OOOOE+OO 

1. OOOOE* 


eve 

1 15320 




cf 

tauw 

t 

01 

6 . 6A41E-03 

3.3221E+03 

1 .oieoE+oe 

01 

4.6094E-03 

2. 30A7E+03 

1 .oieoE+oo 

00 

A . 046 OE- 03 

2 . 0230E+ 03 

1 .0180E+00 

01 

3. 7996E-03 

1 .8998E+03 

1 -OISOE+OO 

01 

3.6793E-03 

1.8397E+03 

l.oieoE+oo 

01 

3.5926E-03 

1.7963E+03 

1.0180E+00 

01 

3.5167E-03 

1 . 758AE+03 

1 . 0180E+00 

01 

3. AA81E-03 

1 .72418+03 

1.0180E+00 

00 

3. 386AE-03 

1 .69328+03 

1 . 0180E+00 

00 

3.3310E-03 

1 .6655E+03 

i.oieoE*oo 

00 

3. 2813E-03 

1 .6406E+03 

1 . 0180E+00 

00 

3.2364E-03 

1 .6182E+03 

1 . 0180E+0D 

00 

3 . 1 957E-03 

1 .5979E+03 

1.0180E+00 

00 

3 . 1586E-03 

1.5793E+03 

1 . 0180E+ 00 

00 

3.12A6E-03 

1 .5623E+03 

1.0180E+00 

00 

3 . 0932E-03 

1 .5A66E+03 

1 . 0180E+00 

00 

3 . 0642E-03 

1 .5321E+03 

1. 0180E+00 

00 

3. 0371E-03 

1 .5186E+03 

1.0180E+00 

00 

3.011 9E-03 

I^059E+03 

1 . oiaoE+oo 

00 

2 . 9882E-03 

1 . A9A1E+ 03 

1. 0180E+00 

00 

2.9660E-03 

1 . A830E+03 

1 . 0180E+00 

00 

2.9450E-C3 

1 . 4725E+ 03 

1 . oiaoE+oo 

00 

2. 92518-03 

1 .4625E+03 

1 . 0180E+ 00 

00 

2. 9063E-03 

1 . A531E+03 

1 . 0180E+ 00 

00 

2.888AE-03 

1.AAA2E+D3 

1 . 0180E+ 00 

00 

2.8713E-03 

l .A357E+03 

1 . 0180E+ OO 

00 

2.8551E-03 

1.4276E+03 

1. 0180E+00 

00 

2 . 8396E-03 

1.A198E+03 

1 . 0180E+00 

00 

2. 82A7E-03 

1.A12AE+03 

1 . 0180E+00 

00 

2.81 05E-03 

1.A052E+05 

1 . Ol&OE+OO 

00 

2. 7968E-03 

1.3984E+03 

1.0180E+00 

00 

2. 7837E-03 

1.3918E+03 

1 .0180E+00 

00 

2.771 0E-03 

1 .3855E+03 

1 .0180E+00 

00 

2. 7589E-03 

1 . 3794E+ 03 

1 .0180E+00 

00 

2 . 747 IE- 03 

1 .3736E+03 

1 .OISOE+OO 

00 

2. 7358E-03 

1.3679E+03 

1 .0180E+00 

00 

2.72A8E- 03 

1 . 362AE+03 

1 .oieoE+oo 

00 

2.71A3E-03 

1 . 3571E+03 

1 .0180E+00 

00 

2.7 040E-03 

1 . 3520E+03 

i.oiaoE+oo 


qw h st 

-9 . 3158E- 03 -5.1754E-01 -7.1799E-07 
-3.8A25E-02 -2.13A7E+00 -2.9615E-06 
-5.0013E-02 -2. 7785E+O0 -3.8546E-06 
-6.0378E-02 -3.35A3E+00 -A.6535E-06 
-7 . 069AE- 02 -3.93fi5E+00 -5.4640E-06 
-6.05A8E-02 -A.A7A9E+00 -6.2061E-06 
-6.9111E-02 - A. 9506E+ 00 -6.8680E-06 
-9.6763E-02 -5.3757E+00 -7.4577E-06 
-1 . 0373E-01 -5. 7627E+00 -7.99A6E-06 
-1.10168-01 -6.1209E+00 -8.A916E-06 
-1.16228-01 -6.A569E+00 -8.9577E-06 
-1 .21958-01 -6.775CE+00 -9.39698-06 
-1.2741E-01 -7. 0781E+00 -9.ftl9AE-06 
-1 . 32638-01 -7.368AE+00 -1.02228-05 
-1 . 3766E-01 -7 . 6A77E+00 -1.0610E-05 
-1 . 4251E-01 -7 . 9171E+ 00 -1. 09838-05 
-1.4720E-01 -ft.l77«E+00 -1.1345E-05 
-1.5175E-01 -6.4305E+00 -1.1696E-05 
-1.5617E-01 -8.6761E+00 -1.2036E-05 
-1.60A7E-01 -6.9150E+00 -1.2366E-05 
-1 . 6A66E-01 -9 - 1A79E+00 -1.2691E-05 
-1.6875E-01 -9.3751E+00 -1.3006E-05 
-1.727SE-01 -9.5971E+00 -1.331AE-05 
-1.7665E-01 -9.81 A1E+00 -1.3615E-0S 
-1.80A8E-01 -1 . 0 027E+ 01 -1.3910E-05 
-1 .8423E-01 -1 . 0235E+01 -1.A199E-05 
-1.8790E-01 -1.0A39E+01 -1.AA82E-05 
-1.9151E-01 -1 . 0639E+ 01 -1.A760E-05 
-1 . 9505E-01 -1 . 0836E+ 01 -1.5033E-05 
-1 . 9853E-01 -1.1030E+01 -1.S301E-05 
-2.0195E-01 -1.1220E+01 -1.5565E-Q5 
-2.0532E-01 -1 . 1A06E+01 -1.582AE-05 
-2. 0863E-01 -1 . 1590E+01 -1.6079E-05 
-2. 1189E-01 -1.1771E+01 -1.6331E-05 
-2. 151 0E-01 -1.1950E+01 -1.6578E-05 
-2.1826E-01 -1.2126E+01 -1.6822E-05 
-2. 2138E-01 -1 . 2299E+01 -1.7O62E-05 
-2.2446E-01 -1.2A70E+01 -1.7299E-05 
-2. 27A9E-01 -1.2638E+01 -1.7533E-05 
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40 

4. 8801E+ 00 

0 . OOOOE+OO 

1 . OOOOE+OO 

2. 6941E-03 

1 . 3470E+03 

1 . 0180E+ 0 0 

41 

5. 0050E+ 00 

0 . OOOOE+OO 

1 . OOOOE+OO 

2.6845E-03 

1 . 3422E+03 

1 . 0 180E+00 

42 

5. 1299E+0Q 

0 .OOOOE+OO 

1. OOOOE+OO 

2.6751E-03 

1 . 3376E+03 

1 .0180E+00 

43 

5. 2548E + 00 

0 . OOOOE+OO 

l. OOOOE+OO 

2.6661E-C3 

1.3330E+03 

1 .0180E+00 

44 

5.3796E+00 

0 . OOO0E+O0 

1. OOOOE+OO 

2.6573E-03 

1 . 3287E+03 

1.0180E+00 

45 

5.5045E+00 

0 . OOOOE+OO 

1. OOOOE+OO 

2 . 6488E- 03 

1 . 3244E+03 

i .oieoE+oo 

46 

5.6294E+00 

0 . 0000E+00 

1. OOOOE+OO 

2.6404E-03 

1.3202E+03 

1 .0180E+00 

47 

5, 7543E+0 0 

0 . 0000E+00 

1. OOOOE+OO 

2.6323E-03 

1 .3162E+03 

1 .0180E+00 

48 

5.8791E+00 

O.OOOOE+OO 

1. OOOOE+OO 

2. 6245E-03 

1 . 31 22E+03 

1 .0180E+00 

49 

6. 0040E+00 

0 . 000 OE* 00 

1. OOOOE+OO 

2.6163E-03 

1 . 3084E+03 

1 .0180E+00 

50 

6 . 1289E+00 

0 . OOOOE+OO 

1. OOOOE+OO 

2 . 6093E- 03 

1.3047E+03 

1 .0180E+00 

51 

6. 2538E+00 

0 . 0000E+00 

1. OOOOE+OO 

2 . 6020E- 03 

1 . 301 0E+03 

1 .0160E+00 

52 

6 . 3786E+ 00 

O.OOOOE+OO 

1. OOOOE+OO 

2 . 5949E- 03 

1.2974E+03 

1 . 0180E+00 

53 

6 . 5035E+ DO 

o.ooooe+oq 

1. OOOOE+OO 

2. 5879E-03 

1 . 294CE+03 

1 .0180E+00 

54 

6.6284E+00 

0 . OOOOE+OO 

1. OOOOE+OO 

2.5812E-03 

1 . 2906E+ 03 

1 .0180E+00 

55 

6.7S33E+00 

O.OOOOE+OO 

l. OOOOE+OO 

2.5745E-03 

1 . 2673E+03 

l . 0160E+00 

56 

6.8781E+00 

0 . OOOOE+OO 

1. OOOOE+OO 

2.S6S1E-0S 

1 . 2840E+03 

1 .0180E+00 

57 

7. 003QE+00 

O.OOOOE+OO 

1. OOOOE+OO 

2.5618E-03 

1 . 2809E+03 

1 .0180E+00 

58 

7, 1279E+Q0 

0. OOOOE+OO 

1. OOOOE+OO 

2 - 5556E-03 

1.2778E+03 

1 . 0180E+00 

59 

7. 2528E+00 

0 . OOOOE+OO 

1. OOOOE+OO 

2.5495E-03 

1 . 2748E+03 

1 . 0180E+00 

60 

7 . 3776E+ 00 

O.OOOOE+OO 

1. OOOOE+OO 

2.5436E-03 

1.2718E+03 

1.0180E+00 

61 

7 . 5025E+00 

o.ooooe+oo 

1. OOOOE+OO 

2 . 5376E-03 

1.2689E+03 

1 .0180E+00 

62 

7.6274E+00 

O.OOOOE+OO 

1. OOOOE+OO 

2 . 5322E- 03 

1 . 2661E+03 

1 .0180E+00 

63 

7 . 752SE+00 

O.OOOOE+OO 

1 . OOOOE+OO 

2 . 5266E- 03 

1.2633E+03 

1 . 0 160E + 0 0 

64 

7.8771E+00 

O.OOOOE+OO 

1. OOOOE+OO 

2.5212E-03 

1 . 2606E+03 

i .oieoE+oo 

65 

8. 0020E+ 00 

o.eoooE+oo 

l. OOOOE+OO 

2 . 5159E- 03 

1 . 2579E+ 03 

1 .0180E+00 

66 

8. 1269E+ 00 

O.OOOOE+OO 

1. 0000E+00 

2.5107E-03 

1.2553E+03 

1 .0160E+00 

67 

8. 2518E+00 

O.OOOOE+OO 

1. OOOOE+OO 

2 . 5056E- 03 

1 . 2528E+03 

1 . OI80E+00 

68 

6. 3766E+ 00 

O.OOOOE+OO 

1, OOOOE+OO 

2.5006E-03 
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mhnh Not y«t converge. 


A converged solution was obtained at time level 4,320 for run 1, the Baldwin- Lomax calculation. The 
average absolute value of the residual for each of the equations was less than 1 x 10’ 6 . The calculation using 
the Chien k-z model, runs 2 and 3, did not converge to the level specified in the input, but all of the residuals 
stopped (-hangin g after about 7,000 additional iterations. Proteus required 1.95x10- 5 
sec/iteration/gridpoint with the Baldwin-Lomax turbulence model and 2.72 x 10“ 5 sec/iteration/gridpoint 
with the Chien k-t turbulence model. 


Computed Results 

In Figure 9.8, the computed skin friction distribution is compared with the experimental data of 
Weighart, as reported by Coles (1968). The Chien k-z turbulence model gave slightly better agreement with 
the experimental data than the Baldwin-Lomax algebraic model. 
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Figure 9.8 - Computed and experimental skin friction coefficient distribution for turbulent boundary layer 
on a flat plate. 

The mean velocity profile for the turbulent boundary layer is shown in Figure 9.9 for Re e ^ 7700. The 
predictions using both the Baldwin- Lomax model and the Chien k-z model are in excellent agreement with 
the experimental data of Klebanoff (1953). 
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Figure 9.9 - Computed and experimental mean velocity profile for turbulent boundary layer on a fiat plate 
(Re, ~ 7700). 

The turbulent kinetic energy profile computed using the Chien k-t turbulence model is compared with 
the experimental data of Klebanoff (1953) in Figure 9.10. Although the location of the peak in the profde 
is well predicted, the computed magnitude of the peak was lower than the measured data. This discrepancy 
is common among many two-equation k-t models, and the Chien k-t model is actually one of the better 
models in this regard (Patel et al, 1985). 
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Figure 9.10. Computed and experimental turbulent kinetic energy distribution for turbulent boundary layer 
on a flat plate ( Re 9 7700). 
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